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Die Language Card (LC) des Apple Il ist 
ursprünglich als Sprachkarte für Inte- 
ger-Basic, Pascal usw. gedacht wor- 
den, doch kann sie auch generell als 
Datenspeicher sowie speziell als RAM- 
Disk (Pseudo-Disk, Disk-Emulator) ein- 
gesetzt werden. Nachstehend wird ein 
mit allen 48K-DOS-Versionen (DOS 3.3, 





Diversi-DOS, David-DOS usw.) verträg- 
licher und damit sehr flexibler Driver 
vorgestellt, der mit einer Datenübertra- 
gungsrate von über 50K/s aufwarten 
kann. Unsere Serie über RAM-Disk-Dri- 
ver beginnt mit diesem LC-Driver, weil 
sich hier die Prinzipien einer RAM-Disk 
besonders einfach erläutern lassen. 


RAM-Disk-Driver für die Language Card 


1. Allgemeines zur RWTS 


DOS 3.3 läßt sich in 3 Bereiche gliedern: 


1. Der Command-Interpreter (,„Befehls- 
deuter“) analysiert die eingegebenen Be- 
fehle wie LOAD PROGRAMM usw. 

2. Der File-Manager (,Dateiverwalter”) 
überwacht das Laden/Speichern von Da- 
teien. 

3. Der Disk-Driver (,Diskettentreiber”) 
oder die RWTS (= Read Write Track Sec- 
tor) führt das physische Laden/Speichern 
auf Spur-Sektor-Ebene durch. 

Der Command-Interpreter gibt die Befehle 
an den File-Manager weiter, der seiner- 
seits die benötigten Sektoren über den 
Disk-Driver abruft. Der normale Disk-Dri- 
ver für physische Laufwerke beginnt, 





wenn DOS 3.3 in den unteren 48K liegt, 
stets bei der Speicherstelle $BDOO. Vor 
dem Sprung zum Disk-Driver bzw. zur 
RWTS sind bereits vom File-Manager die 
gewünschten Parameter in dem sog. IOB 
(= Input-Output-Block) ab Speicherstelle 
$B7E8 gesetzt worden, die dann von der 
RWTS übernommen werden. Ein Maschi- 
nenprogramm kann anstelle des normalen 
IOB ab $B7E8 seinen eigenen IOB, der 
irgendwo im Speicher liegen kann, benut- 
zen und im übrigen den File-Manager 
ganz umgehen, doch muß man dann vor 
dem Sprung zur RWTS (= JSR $BDO0 


oder besser JSR $03D9 = RWTS-Vekto- 


radresse) das Y-Register mit dem Low 
Byte und das A-Register mit dem High 
Byte der Adresse des eigenen IOB laden. 


Die Besonderheit dieses LC-Drivers 
gegenüber ähnlichen LC-Drivern, die 
bereits in „Nibble“ und anderen Zeit- 
schriften publiziert worden sind, liegt 
darin, daß unser Driver selbst in der LC 
residiert, womit keine Kompatibilitäts- 
probleme mit unterschiedlichen DOS- 
Varianten auftreten können. 


Poor Man’s RAM-Disk ....... 


Der IOB umfaßt folgende Parameter: 


Input-Output-Block 
(ab $0300 mit Beispielwerten) 


0 $0300: 01 Konstante 

1 $0301: 30 Jetzt-Slot 3 (3 * 16) 

1 $0302: 01 Jetzt-Drive 1 

0 $0303: FE Jetzt-Volume-Nummer 254 
1 $0304: 11 Spur 17 

1 $0305: 00 Sektor 0 

0 $0306: 11 LL DCT ($0311) 

0 $0307: 03 HH DCT 

1 $0308: 00 LL Puffer ($1000) 

1 $0309: 10 HH Puffer 

0 $030A: 00 entfällt 

0 $030B: 00 entfällt 

1 $030C: 01 Read-Befehl (02 = Write) 








0 $030D: 00 Fehler-Code (danach) 

0 $030E: 00 Vorher-Volume-Nummer 
0 $030F: 60 Vorher-Slot 6 

0 $0310: 02 Vorher-Drive 2 

0 $0311: 00 DCT-Konstante 

0 $0312: 01 DCT-Konstante 

0 $0313: EF DCT-Konstante 

0 $0314: D8 DCT-Konstante 


Aufruf der RWTS 
$0315: AO 00 LDY +$00 

(Low $0300) 
$0317: AQ 03 LDA +$03 

(High $0300) 


$0319: 20 D9 03 JSR $03D9 
(RWTS-Vektor) 
$031C: 60 RTS 


Das obige RWTS-Beispiel würde — nach 
CALL —151 mit 315G gestartet — den Sek- 
tor O von Spur 17 von der LC-RAM-Disk 
im imaginären Slot 3 in den Puffer $1000- 
$10FF einlesen. DCT steht übrigens für 
Device Characteristics Table und umfaßt 4 
Konstanten für den Laufwerk-Controller, 
die allerdings bei einem RAM-Disk-Driver 
nicht benötigt werden. Als Jetzt-Parameter 
gelten die IOB-Slot-Drive-Volume-Werte 
vor dem RWTS-Aufruf. Nach der Rückkehr 
von der RWTS werden die Jetzt-Parame- 
ter zu Vorher-Parametern. (Um den Ver- 
such der normalen RWTS, den nicht-vor- 
handenen Motor der RAM-Disk abzustel- 
len, zu unterbinden, aktualisiert unser LC- 
RAM-Disk-Driver nicht die Vorher-Para- 
meter.) 

Vor den einzelnen Bytes des IOB steht 
entweder eine 0 oder eine 1. Falls man wie 
hier mit einem externen IOB die RAM-Disk 





per RWTS direkt anspricht, so brauchen 
vor dem Aufruf der RWTS theoretisch nur 
die mit 1 markierten Speicherstellen initia- 
lisiert werden, da die mit O markierten 
Speicherstellen bei der RAM-RWTS im 
Gegensatz zur normalen RWTS keine Rol- 
le spielen. Aus Gründen der Mehrfachnut- 
zung eines einzigen IOB innerhalb eines 
Assemblerprogramms empfiehlt es sich 
jedoch, den IOB vollständig anzulegen. 


Eine RAM-Disk unterscheidet sich von der 
normalen Diskette lediglich dadurch, daß 
die Daten auf der RAM-Karte anstatt auf 
dem magnetischen Datenträger gespei- 
chert werden. Dies hat den Nachteil, daß 
mit dem Ausschalten des Apple der RAM- 
Disk-Inhalt verlorengeht, der somit vor Be- 
endigung der Arbeit stets auf einer physi- 
schen Diskette gesichert werden muß. 
Der Vorteil der RAM-Disk liegt in dem 
ungleich schnelleren Zugriff, weil im Ge- 
gensatz zum Diskettenlaufwerk keine phy- 
sischen Teile bewegt werden (Einschalten 
des Laufwerkmotors, Rotieren der Disket- 
te, Positionieren des Lesekopfs usw.). 


Der normale Disk-Driver übernimmt u.a. 
die Spur- und Sektornummer sowie die 
Pufferadresse (= Pufferanfang) aus dem 
IOB. Wenn ein Lesebefehl vorliegt (01 = 
Read), so wird der 256 Bytes umfassende 
Sektor von der physischen Diskette in den 
256 Bytes umfassenden Puffer eingele- 
sen. Wenn umgekehrt ein Schreibbefehl 
vorliegt (02 = Write), so wird der Pufferin- 
halt auf den entsprechenden Disketten- 
sektor geschrieben. De facto ist eine Nib- 


RAM-disk y4 


ble-Kodierung zwischengeschaltet, doch 
können wir dies hier ignorieren. 

Ein RAM-Disk-Driver verfährt analog zum 
normalen Disk-Driver. Beim Lesebefehl 
wird der Pufferinhalt in einen bestimmten 
Bereich der RAM-Karte eingelesen. Um- 
gekehrt wird beim Schreibbefehl ein be- 
stimmter Bereich der RAM-Karte in den 
Puffer geschrieben. Lesen und Schreiben 
sind hier Move- oder Speicherverschiebe- 
befehle. 

Ein RAM-Disk-Driver besteht grundsätz- 
lich aus 2 Teilprogrammen: einem Modul, 
das die RAM-Disk „initialisiert“, sowie ei- 
nem Modul, das den eigentlichen Driver 
installiert. Beide Module können wie bei 
unserer RAMDISKLC-Utility zu einem 
Gesamtprogramm vereint werden. 


2. RAM-Disk-Organisation 


Der für die RAM-Disk zur Verfügung ste- 
hende Speicherbereich — in unserem Fall 
die LC — kann völlig beliebig in „Spuren“ 
und „Sektoren“ (256-Byte-Bereiche) ein- 
geteilt werden. Aus Diagramm 1 ersehen 
wir, daß z.B. der Bereich $D000-$DFFF 
der LC-Bank 2 der Spur 19 mit den Sekto- 
ren 0-15 entspricht. Sektor O von Spur 19 
nimmt den Teilbereich $D000-$D0FF ein, 
Sektor 1 den Teilbereich $D100-$D1FF 
usw. Bei einer normalen Diskette gibt es 
35 Spuren. Die Spuren 0-2 enthalten das 
DOS, die Spur 17 umfaßt den Catalog, und 
die restlichen Spuren ab Spur 18 aufwärts 
sowie ab Spur 16 abwärts enthalten die 
eigentlichen Dateien. Da auf einer RAM- 
Disk normalerweise nicht 35 Spuren un- 








tergebracht werden können und im übri- 
gen auch von einer RAM-Disk nicht ge- 
bootet werden kann, muß das sog. VTOC 
(= Volume Table of Contents), das sich 
immer auf Sektor O von Spur 17 befindet, 
so modifiziert bzw. „gekürzt“ werden, daß 
das RAM-Disk-VTOC die tatsächlich ver- 
fügbaren Spuren und Sektoren widerspie- 
gelt. 


Im RAMDISKLC-Listing ist das VTOC in 
den Programmzeilen 191-310 bzw. (vor 
der Verschiebung in die LC) im Speicher 
$6200-$62FF enthalten. Die Speicherstel- 
le $6200 entspricht damit dem 0. Byte und 
die Speicherstelle $62FF dem 255. Bytes 
des VTOC-Sektors. Die wichtigsten relati- 
ven Bytes $00-$FF des VTOC — weitere 
Details entnehme man dem Listing — wol- 
len wir nunmehr kurz besprechen. 


$01: Spur-Nr. des 1. Dateinamensektors 
(17) 

$02: Sektor-Nr. des 1. Dateinamensektors 
(15) 

$03: 3 (= Version DOS 3.3) 

$06: Volume-Nr. (254) 

$27: maximale Anzahl der Spur-Sektor- 
Paare innerhalb einer Spur-Sektor- 
Liste (122) 

$30: zuletzt benutzte Spur 

$31: Richtung: 1 für ab Spur 18 aufwärts, 
255 für ab Spur 16 abwärts 

$34: Anzahl der Spuren pro Diskette (35) 

$35: Anzahl der Sektoren pro Spur (16) 

$36: Anzahl der Bytes pro Sektor (in Low- 
High: $0100 = 256) 


Die eben genannten Bytes von $00-$37 
machen den „Kopf“ des VTOC aus. Ab 
Byte $38 folgen je 4 Bytes für je 1 Spur 
(beginnend mit Spur 0) als Spurenbele- 
gung-Bitmap. Von den je 4 Bytes werden 
nur jeweils die ersten 2 Bytes zur Ver- 
schlüsselung der belegten bzw. freien 
Sektoren einer Spur benutzt. Beispiel: 


FEDCBA9876543210 Bit-Nrn. 
11411111111111100 Bits selbst 


Nehmen wir an, für die Spur 18 seien die 4 
Bytes $FF $FC $00 $00 eingetragen. Wir 
ignorieren die letzten beiden Bytes und 
erstellen ein Bitmuster der ersten beiden 
Bytes. Das 0. Bit ($0) steht für Sektor O 
und und das 15. Bit ($F) für Sektor 15. 
Wenn ein Bit den Wert 1 hat, dann ist der 
entsprechende Sektor frei, und wenn es 
den Wert O hat, belegt. Das obige Bitmu- 
ster für Spur 18 besagt also, daß die Sek- 
toren 0 und 1 bereits belegt sind, während 
die restlichen Sektoren noch zur freien 
Verfügung stehen. 


10 


'$D100 


Diagramm 1: Speicherverteilung bei RAMDISKLC, „Slot 3“ 
®© Hinsprung zum RAM-Disk-Driver 
(2) Rucksprung, falls Slot <> 3 
(3) Rucksprung, falls Slot = 3 


$FFFF 
$F FOO 
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Spur 21, Sektor 0-14 


$F000 





Bank 2 


($C083) 
Bank 1 
($CO8B) 
Normale DOS-RWTS (2) 
$BD06 | 
3 E 


Rücksprung vom Driver 


Spur 20, Sektor 0-15 


$E000 


Spur 19, Sektor 0-15 


$D000 
$DFFF 


Spur 18, Sektor 2-15 


$D200 





Spur 17, Sektor 15 Catalog 
Spur 17, Sektor O VTOC 


$D000 
$BFFF 
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Die Initialisierung der RAM-Disk muß ins- 
besondere für ein dem RAM-Speicher 


entsprechendes VTOC sorgen. Ferner 
müssen auch die Dateinamensektoren auf 
Spur 17 angelegt werden. Bei einer nor- 
malen Diskette ist Sektor 15 in Spur 17 der 
erste und Sektor 1 in Spur 17 der letzte 
Dateinamensektor, wobei jeder dieser 
Sektoren 7 Dateieintrage aufnehmen 
kann. Die Beschreibung der Struktur eines 
Dateinamensektors würde den Rahmen 
dieses Aufsatzes sprengen, doch sei dar- 
auf hingewiesen, daß die Dateinamensek- 
toren untereinander verkettet sind, d.h. 
Sektor 15 als 1. Datennamensektor enthält 
einen Zeiger auf Sektor 14 als 2. Dateina- 
mensektor usw. Der letzte Dateinamen- 
sektor (Sektor 1) enthält einen „Null“-Zei- 
ger, womit das Ende der Dateieintragsliste 
erreicht wird. Die Zeiger in der Form 
Spur-Nr.- Sektor-Nr., z.B. 

$11 —$0E, d.h. 17-14 

befinden sich stets in den relativen Bytes 
$01-$02 eines jeden Dateinamensektors. 
Im übrigen enthält eine frisch initialisierte 
Diskette in den Dateinamensektoren zu- 
nächst nur „Nullen“ ($00). Aus Platzgrün- 
den legen wir für unsere Mini-LC-RAM- 
Disk nur einen einzigen Dateinamensektor 
(Spur 17, Sektor 15) an. Zu diesem Zweck 
brauchen wir lediglich den entsprechen- 
den Speicherbereich auf Null zu setzen, 
womit auch der Zeiger zum theoretisch 
nächsten Dateinamensektor zum „Null”- 
Zeiger wird. 


Fassen wir zusammen: Zur „Initialisie- 
rung“ einer RAM-Disk muß der korrekte 
VTOC-Sektor sowie mindestens 1 Datei- 
namensektor angelegt werden. Die ei- 
gentlichen Datensektoren selbst müssen 
nicht initialisiert, d.h. auf Null gesetzt wer- 
den, obgleich unsere RAMDISKLC-Utility 
dies zusätzlich tut, damit man beim Experi- 
mentieren mit der RAM-Disk sieht, welche 
Sektoren tatsächlich bereits benutzt 
wurden. 


3. RAM-Disk-Driver 


Die Logik eines RAM-Disk-Drivers funk- 
tioniert prinzipiell in der Art der aus Dia- 
gramm 1 ersichtlichen eingekreisten Zif- 
fern: 


1. Am Anfang des normalen Disk-Drivers 
(= $BDO0) wird ein Sprung zum RAM- 
Disk-Driver vorgeschaltet, der sich seiner- 
seits irgendwo im Speicher befinden kann. 
Unser Driver befindet sich selbst in der 
LC, womit erstens kein Speicherraum in 


den unteren 48K verlorengeht und zwei- 
tens keine Konflikte mit gepatchtem DOS 
3.3 auftreten. Wir benötigen bei der Spei- 
cherstelle $BD00 nur 2 Assemblerbe- 
fehle: 

$BD00: BIT $C080 

$BD03: JMP $FFOO 

$BDO06: Fortsetzung der RWTS 

BIT $C080 macht die Bank 2 der LC lese- 
fähig und JMP $FFOO bewirkt den Sprung 
zum bei $FFOO beginnenden RAM-Disk- 
Driver. 

Wenn nunmehr die RWTS vom eigenen 
Assemblerprogramm oder vom File-Mana- 
ger aufgerufen wird, so erfolgt zunächst 
ein Sprung via $BD00 zum RAM-Disk- 
Driver. 


2. Dieser wertet den IOB aus und über- 
prüft zunächst, ob der für die RAM-Disk 
willkürlich festgelegte Slot, bei unserem 
Driver Slot 3, als Jetzt-Slot vorgegeben 
ist. Ist dies nicht der Fall, so wird die 
Language Card wieder abgeschaltet und 
die normale RWTS bei $BDO6 fortgesetzt, 
wobei selbstverstandlich bereits diejeni- 
gen Befehle, die ursprünglich bei 
$BD00-$BD05 standen, vom RAM-Disk- 
Driver erledigt worden sind. 


3. Stimmt jedoch der für die RAM-Disk 
festgelegte Slot 3 mit dem |OB-Jetzt-Slot 
überein, so holt sich der RAM-Disk-Driver 
die erforderlichen Parameter aus der 
RWTS-IOB und überträgt entweder den 
DOS-Puffer in den entsprechenden LC- 
Bereich oder umgekehrt. Danach wird der 
IOB aktualisiert (insbesondere durch Ein- 
trag von Fehler-Nummer 0) und der Dri- 
ver, nachdem die LC wieder abgestellt 
worden ist, über RTS verlassen. 


Da das Abstellen der LC nicht auf der LC 
selbst geschehen kann, wird eine 6 Bytes 
umfassende Mini-Routine in den Stackbe- 
reich $0100-$0105 kopiert und von dort 
aus die LC desaktiviert. 

Insgesamt gibt es 3 Typen des Rück- 
sprungs vom RAM-Disk-Driver in die un- 
teren 48K: 

a) Sprung über den Stack nach $BDO6, 
wenn die RAM-Disk laut IOB nicht verlangt 
war. 

b) Sprung über den Stack auf ein RTS bei 
$0103 mit gesetzten Carry-Flag und I/O- 
Error in IOB, falls die RAM-Disk illegal 
angesprochen wurde (z.B. INIT XXX, S3 
oder Lesen einer Spur, die laut VTOC gar 
nicht existiert). 

c) Sprung über den Stack auf ein RTS bei 
$0103 mit zurückgesetztem Carry-Flag 
und Error = 0, falls alle Parameter der IOB 
gültig waren. 





Hinweis: Auf die LC-Softswitches sowie 
auf Memory-Management-Probleme 
schlechthin wird in einem späteren 
Peeker-Artikel eingegangen. 


4. Technische Anmerkungen 


a) Das Programm RAMDISKLC wird mit 
BRUN RAMDISKLC gestartet. Danach er- 
scheint ein Kurzmenü mit der Frage 
» RAMDISKLC mit Init J/N“, worauf Sie mit 
„J“ antworten. 

b) Die LC-RAM-Disk wird mit Slot 3, Drive 
1 oder Slot 3, Drive 2 angesprochen. 

c) Der 16K-RAM-Disk stehen 61 reine Da- 
tensektoren zur Verfügung, weil die 3 rest- 
lichen 256-Byte-Blöcke durch VTOC, Da- 
teinamensektor und den Driver selbst be- 
nutzt werden. 

d) Der eine und einzige Dateinamensektor 
kann 7 Dateieinträge aufnehmen. Das Ko- 
pieren von Dateien auf die und von der 
RAM-Disk mit dem FID-Programm der Sy- 
stem Master Diskette ist problemlos mög- 
lich. Doch sei darauf hingewiesen, daß FID 
einen Bug hat, der nicht an unserem RAM- 
DISKLC liegt. Dieser Bug läßt FID stets 
dann „durchdrehen“, wenn die Catalog- 
Spur voll ist, was bei uns nach 7 Dateiein- 
trägen bereits der Fall ist. Derselbe Bug 
würde auch auftreten, wenn man mehr als 
105 (14 - 7) Dateieinträge auf einer norma- 
len Diskette mit FID erzeugen wollte. Dann 
können Sie sich nur noch mit Reset retten! 
e) Wenn aus Versehen neu gebootet wor- 
den ist, so starte man RAMDISKLC und 
antworte auf die Frage „Init J/N“ mit „N“. 
Durch Neubooten wird der Inhalt der LC 
nicht zerstört, doch wird durch DOS 3.3 in 
die Speicherstelle $E000 der Wert $00 
gepokt, der eine in diesem Bereich liegen- 
de RAM-Disk-Datei modifizieren würde. 
Bei einer nach dem Patch 

$BFD3: EA EA EA 

initialisierten DOS-Diskette findet dieser 
Poke nicht mehr statt. 

Im übrigen starten Sie RAMDISKLC nur 
dann ein zweites Mal, wenn Sie zuvor neu 
gebootet haben. 

f} RAMDISKLC benutzt in den unteren 
48K nur je 6 Bytes ab $BDOO sowie ab 
$0100. 

g) Der Driver ist relativ gut gegen illegale 
Parameter abgesichert (besser als DOS 
3.3 selbst), so daB man RAMDISKLC zum 
Üben der RWTS benutzten kann. Bei- 
spielsweise ist es nicht möglich, einen Bi- 
närfile in die Karte zu BLOADen oder eine 
Spur zu lesen, die auf Grund der VTOC 
gar nicht existiert. 
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RAMDISKLC 











6173: 
6176: 
6178: 


62 
20 


61 


CMP 
BNE 
DEX 
BPL 


BDOOALT, X 
NOTDOS 


DOSOKAY 


von U.Stiehl/01.12.84 


RAM-Diskdriver für 
16K-Language-Card 
Apple II+/IIe/IIc 


61 Datensektoren 
1 VTOC-Sektor (Catalog) 
1 Dateinamen-Sektor (Catalog) 


63 Sektoren insgesamt 


Speicherverteilung 


$D000-$DOFF Bkl T.11,5.00 VTOC 
$D100-$D1FF Bkl T.11,S.0F CAT 
$D200-$DFFF Bkl T.12,S.02-S.0F 
$D000-$DFFF Bk2 T.13,S.00-S.OF 
$EO00-$EFFF Bk2 T.14,S.00-S.0F 
$FOOO-$FEFF Bk2 T.15.S.00-S.0E 
$FFOO-$FFFF RAM-Diskdriver 


Uk ÅÅÅ 


TR EQU $CE 
IOB EQU $48 
SECTOR EQU $FC ; Temp! 
RAM EQU $FC ; RAM-Disk 
BUF EQU $FE ¡DOS—Puf fer 
STACK EQU $0100 ‚Rücksprung 
DOSWARM EQU $03D0 
PRINT EQU $FDED 
RDKEY EQU $FDOC 
HOME EQU $FC58 
* 

LDX #0 
MITINIT? LDA MENUE,X 

BEQ JANEIN 

JSR PRINT 

INX 

BNE MITINIT? 
JANEIN JSR RDKEY 

CMP #"N" 

BEQ NURSOFT 

CMP #"n" 

BEQ NURSOFT 

CMP #"J" 

BEQ MITINIT 

CMP #"j" 

BEQ MITINIT 

JANEIN 
* 
MITINIT INITLC 
NURSOFT SOFTLC 
* 
INITENDE EA 
* 
DOSWARM 

* 
8D 
"RAMDISKLC mit Init" 
" J/N " 
00 


SOFTLC 


DOS-Patch bei RWTS-Entry 


$BD00: 84 48 STY $48 
$BDO2: 85 49 STA $49 
$BDO4: AO 02 LDY +$02 


* k k k k k k k*k *k 


* $BD00: 2C 80 CO BIT $C080 RDBK2 
* $BDO3: 4C 00 FF JMP $FFOO 

* 

BDOOALT HEX 84488549A002 
BDOONEU HEX 2C80CO4COOFF 

+ 

SOFTLC +5 

DOSOKAY $BD00,X 













* 






















617B: A2 05 94 LDX #5 

617D: BD 68 61 95 PATCH1 LDA BDOONEU,X 
6180: 9D 00 BD 96 STA $BD00,X 
6183: CA 97 DEX 


BPL PATCH1 





+ 
100 »* Verschiebe "Driver" nach $FF00 


101 œ 
6186: AD 81 CO 102 LDA $C081 ; RDROM 
6189: AD 81 CO 103 LDA $C081 ; WRBK2 
618C: A2 00 104 LDX +#$00 
618E: BD 00 63 105 MOVER1 LDA $6300,X 
6191: 9D 00 FF 106 STA $FFOO,X 
6194: E8 107 = INX 
6195: DO F7 108 BNE MOVER1 
6197: 60 109 RTS ‚Exit 


* 
Skakke ee ee ee le Å ee Å ee Å 
* 














6198: A2 00 113 NOTDOS LDX +$00 

619A: BD A8 61 114 NOTDOS1 LDA NOTDOS3,X 

619D: FO 06 115 BEQ NOTDOS2 

619F: 20 ED FD 116 JSR PRINT 

6142: E8 LLT INX 

61A3: DO F5 118 BNE NOTDOS1 

61A5: 4C 45 61 119 NOTDOS2 JMP INITENDE 

61A8: 8D 120 NOTDOS3 HEX 8D 

61A9: C4 CF D3 121 ASC "DOS modifiziert" 


HEX 878D00 





INITLC 


$D000-$FFFF auf 0 setzen 





Bereich $DO00-FFFF Bk2 löschen 
























61BB: AC 83 CO 133 INITLC LDY $C083 : RDBK2 

61BE: AC 83 CO 134 LDY $C083 ; WRBK2 

61C1: A9 DO 135 LDA +$D0 ;$D000 

6103: 85 CF 136 STA PTR+1 

6105: A9 00 137 LDA #0 

6107: 85 CE 138 STA PTR 

6109: A8 139 TAY 

61CA: 91 CE 140 Ll STA (PTR),Y 

61CC: C8 141 INY 

61CD: DO FB 142 BNE Ll 

61CF: E6 CF 143 INC PTR+1 

61D1: DO F7 144 BNE Ll : $FFFF+1 
145 * 
146 * Bereich $D100-DFFF Bkl löschen 
147 x 

61D3: AC 8B CO 148 LDY $C08B : RDBK1 

61D6: AC 8B CO 149 LDY $C08B ; WRBK1 

61D9: AO Dl 150 LDY +$D1 :$D100 

61DB: 84 CF 151 STY PTR+1 

61DD: A8 152 TAY 

61DE: 91 CE 153 L2 STA (PTR),Y 

61E0: C8 154 INY > 

61E1: DO FB 155 BNE L2 

61E3: E6 CF 156 INC PTR+1 

61E5: A6 CF 157 LDX PTR+1 

61E7: EO EO 158 CPX #$E0 ;$E000 


BNE L2 








* 
161 aaka EE 









162 * 
163 »* Catalog-Spur anlegen 
164 x 
165 »* Track $11, Sektor $00 = VTOC 
166 »* nach $D000-$DOFF von Bankl 
167 »* verschieben. 
. 168 x 
61EB: A2 00 169 LDX #0 
61ED: BD 00 62 170 VTOC1 LDA VTOC2,X 
61FO: 9D 00 DO 171 STA $D000,X 
61F3: E8 172 INX 


BNE VTOC1 








* 
* Kein Link-Byte anlegen, da nur 


RAM-disk 





* l Sektor für Dateinamen reser- 
* viert ist = 7 Dateien max. 
* 
: AD 81 CO LDA $C081 ; RDROM T.$13 = en. 
: AD 81 CO LDA $C081 ; WRBK2 T.$14 = $E000-$EFF 


: 20 58 FC JSR HOME 
: 60 RTS "Exit : HEX FFFFOOOO 1.13 


HEX FFFFOOOO ;T.14 


Bank 2: $D000-$FFFF 


* 

Fe Ee He He I ee I Å ee ee ee de Å Å Å Å Å ee Å 
* 

* Bank 1: $D000-$DFFF 

x D=T<=== 

* 

* T.$11, S.$00 = VTOC = $D000-$DFFF 
* 

VTOC2 HEX 00 ;unused 

* 


T.$15 = $F000-$FEFF = S.$00-$0E 


FEDCBA9876543210 
0111111111111111 


HEX 7FFFO000 


Nichtbenutzte Spuren 


HEX 11 :T. $11 


HEX OF :S. $0F HEX 00000000 


HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
285 HEX 00000000 
286 HEX 00000000 
287 HEX 00000000 
288 HEX 00000000 
289 HEX 00000000 
290 HEX 00000000 
291 HEX 00000000 
292 HEX 00000000 
293 x 
294 æ Rest stets frei 
295 x 
296 HEX 00000000 
297 HEX 00000000 
298 HEX 00000000 
299 HEX 00000000 
300 HEX 00000000 
301 HEX 00000000 
302 HEX 00000000 
303 HEX 00000000 
304 HEX 00000000 
305 HEX 00000000 
306 HEX 00000000 
307 HEX 00000000 
308 HEX 00000000 
309 HEX 00000000 
310 HEX 00000000 
311 x 
312 »* MuB bei $62FF enden! 
314 x 
315 
316 Eigentlicher Driver 
317 
318 ORG $FFOO ;$6300! 
319 x 
320 DRIVERl JMP DRIVER2 ;0000 
321 *x 
322 SLOT HEX 30 «Slot 3 
323 TRACK HEX 00 
324 RDWRFLAG HEX 00 
325 ZERO HEX 00000000 
326 x 
327 »* Rette IOB-Pointer 
* 
DRIVER2 STY IOB 
STA 10B+1 


HEX 03 :DOS 3:3 
HEX 0000 ;unused 
HEX FE ;Vol.254 


“m... 


"ee s 


EEE ae 


HEX 0000000000 ;unused 
HEX 0000000000 

HEX 0000000000 

HEX 0000000000 

HEX 0000000000 

HEX 0000000000 

HEX 0000 


~. 


ve we 


Anzahl der T/S-Paare pro TSL 


HEX 7A ;122max. 
HEX 00000000 ; unused 
HEX 00000000 

HEX ;letzter T. 
HEX ; Richtung 
HEX ; unused 
HEX 30. ICK, 
HEX ;16 Sek. 
HEX ; $0100 


* 


* Spurenbelegung-Bitmap 
i === 


Bit 1 = frei, Bit 0 = belegt 
Nichtbenutzte Spuren: $00-$10 


FEDCBA9876543210 
0000000000000000 belegt 


* k*k k k KH 


HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 
HEX 00000000 


.00 
OL 
.02 
.03 
04 
05 
.06 
.07 
.08 
.09 
. OA 
. OB 
.OC 
. OD 
. OE 
OF 
+10 


we 


`. 


3 3 ENE EA EE eg 9 ed å å 3 ed å eå 


~. 


* 
Zunächst Bank 1 Read/Write 


`. 


~. 


LDA $C08B ; RDBK1 


Catalog: Es gibt nur 1 Datei- LDA $CO8B ; WRBK1 


namen-Sektor $0F sowie 1 VTOC- 
Sektor $00. Die Bitmap fir die 
Catalog-Spur gilt als belegt. 


Rette Zero-Page $00FC-$00FF 


LDX #3 
ZEROSAVE LDA RAM,X 

STA ZERO,X 

DEX 

BPL ZEROSAVE 


= 
he 


HEX 00000000 E. 11 


* H* E 


* T.$12 = $D200-$DFFF = S.$02-$0F 
x 

* FEDCBA9876543210 

æ 1111111111111100 

© 

T12 HEX FFFCOOOO 

* 


* 

* Pseudo-Disk-Slot? 

* 

SLOT? LDY #$01 
LDA (IOB),Y ¿Slot 
CMP SLOT 
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BEQ RDWR? 






351 x 

* Zurück zur normalen Rwts 

* 

FF27: AC C8 FF 354 RWTS 
35 x 

* Drive-Error 

* 















JMP EXIT1 ;Rwts 





FF2A: AO OD 358 IOERROR LDY #$0D 

FF2C: AQ 40 359 LDA #$40 ;10-Err. 

FF2E: 91 48 360 STA (I0B),Y 

FF30: 38 361 SEC ;Carry! 

FF31: 4C CE FF 362 JMP EXIT2 ;I0-Err. 
363 x 


* Befehl: 
* 


l=Read oder 2=Write? 










FF34: AO OC 366 RDWR? LDY #$0C 

FF36: Bl 48 367 LDA (I0B),Y ;Befehl 
FF38: FO FO 368 BEQ IOERROR ; Seek 
FF3A: C9 03 369 CMP #3 ;>3? 






BCS IOERROR 










e 
* DOS-Pufferadresse 
* 










FF3E: 8D 05 FF 374 PUFFER STA RDWRFLAG 
FF41: AO 08 375 LDY +$08 
FF43: Bl 48 376 LDA (IOB),Y 
FF45: 85 FE 377 STA BUF 
FF47: C8 378 INY 

FF48: Bl 48 379 LDA (IOB),Y 
FF4A: 85 FF 380 STA BUF+1 




































381 * 
382 œ Track und Sektor in Bereich 
383 »* der LC-Karte umwandeln 
384 * 
385 »* T.$11 5.$00 -> $D000-$DFFF Bkl 
386 »* T.$11 S.$0F -> $D100-$D1FF Bkl 
387 »* T.$12 02-0F -> $D200-$DFFF Bkl 
388 »* T.$13 00-0F -> $D000-$DFFF Bk2 
389 »* T.$14 00-0F -> $E000-$EFFF Bk2 
390 »* T.$15 00-0E -> $F000-$FEFF Bk2 
391 œ 

FF4C: AO 04 392 LDY #$04 

FF4E: Bl 48 393 LDA (IOB),Y ;Track 

FF50: 8D 04 FF 394 STA TRACK 

FF53: C8 395 INY 

FF54: Bl 48 396 LDA (IOB),Y ;Sector 

FF56: 85 FC 397 STA SECTOR 

FF58: AA 398 TAX ;X=Sector 
399 x* 

FF59: AD 04 FF 400 T11? LDA TRACK 

FFSC: C9 11 401 CMP #$11 

FF5E: DO OC 402 BNE T12? 

FF60: EO 00 403 CPX #$00 ;S.00/0F? 

FF62: FO 22 404 BEQ DOOOBK1 

FF64: EO OF 405 CPX +$0F 

FF66: DO C2 406 BNE IOERROR 

FF68: AQ Dl 407 LDA +$D1 ;$D100 

FF6A: DO 1F 408 BNE KEINADD 

FF6C: C9 12 409 T12? CMP #$12 

FF6E: DO 04 410 BNE T13? 

FF70: EO 02 all CPX #$02 ;5.02-0F? 

FF72: BO 12 412 BCS DOOOBK1 

FF74: C9 13 413 T13? CMP +$13 

FF76: FO 17 414 BEQ DOOOBK2 

FF78: C9 14 415 T14? CMP +$14 

FF7A: FO 17 416 BEQ E000BK2 

FF7C: C9 15 417 T15? CMP #$15 

FF7E: DO AA 418 BNE IOERROR 

FF80: EO OF 419 CPX #$0F 

FF82: DO 13 420 BNE FOOOBK2 

FF84: FO A4 421 BEQ IOERROR ;$FFOO! 
422 * 

FF86: AQ DO 423 DOOOBK1 LDA +$D0 ; $D000 

FF88: 18 424 ADDSEC1 CLC 

FF89: 65 FC 425 ADC SECTOR 

FF8B: 85 FD 426 KEINADD STA RAM+1 

FF8D: DO 15 427 BNE READ? ;stets 

FF8F: AQ DO 428 DOOOBK2 LDA +$D0 ; $D000 

FF91: DO 06 429 BNE ADDSEC2 

FF93: AQ EO 430 EOOOBK2 LDA #$E0 ; $E000 

FF95: DO 02 431 BNE ADDSEC2 

FF97: AQ FO 432 FOOOBK2 LDA +$FO ;$F000 

FF99: 18 433 ADDSEC2 CLC 

FF9A: 65 FC 434 ADC SECTOR 

FF9C: 85 FD 435 STA RAM+1 

FF9E: AD 83 CO 436 LDA $C083 ; RDBK2 
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FFAl: AD 83 CO 437 LDA $C083 ; WRBK2 
438 * 
FFA4: AO 00 439 READ? LDY #0 ; Y=0 
FFA6: 84 FC 440 STY RAM ; Low=0 
FFA8: AD 05 FF 441 LDA RDWRFLAG 
FFAB: C9 01 442 CMP #1 ; 1=Read 
FFAD: DO 09 443 BNE WRITER 
444 x 
445 æ Read = Von der LC nach "unten" 
446 x 
FFAF: Bl FC 447 READER LDA (RAM),Y 
FFBl: 91 FE 448 STA (BUF),Y 
FFB3: C8 449 INY 
FFB4: DO F9 450 BNE READER 
FFB6: FO 07 451 BEQ ZURUECK1 
452 * 
453 æ Write = Von "unten" zur LC 
454 * 
FFB8: Bl FE 455 WRITER LDA (BUF),Y 
FFBA: 91 FC 456 STA (RAM),Y 
FFBC: C8 457 INY 
FFBD: DO F9 458 BNE WRITER 
459 x 
FFBF: 18 460 ZURUECK1 CLC ‚okay! 
FFCO: AO OD 461 LDY +$0D 
FFC2: A9 00 462 LDA #$00 
FFC4: 91 48 463 STA (IOB),Y ;0.Fehler 
FFC6: 90 06 464 BCC EXIT2 





465 * 
466 sjekke ll EE EEE EEE OR 
467 x 
468 * EXIT1: Fortsetzung der normalen 


469 * Rwts bei $BDO6 
470 x 
FFC8: 20 D9 FF 471 EXIT1 JSR ZEROLOAD ;Rwts 


FFCB: 4C 00 01 472 JMP STACK 






473 * 
474 »* EXIT2: Entweder I0-Error mit BCS 
475 %* oder normaler Exit von 
476 x RAM—Diskdriver mit BCC 
477 * 
FFCE: 20 D9 FF 478 EXIT2 JSR ZEROLOAD ; I0-Error 
FFD1: AQ 60 479 LDA #$60 ;RTS 
FFD3: 8D 03 01 480 STA STACK+3 


JMP STACK 










+ 
483 æ Restore Zero-Page 
484 * 

FFD9: A2 03 485 ZEROLOAD LDX #3 







FFDB: BD 06 FF 486 ZEROL1 LDA ZERO,X 
FFDE: 95 FC 487 STA RAM,X 
FFEO: CA 488 DEX 


BPL ZEROL1 

















* 
491 * RDROM auf Stack schieben 
492 x 

493 » $0100: 2C 82 CO BIT $C082 
494 x $0103: 4C 06 BD JMP $BD06 


495 %* 
FFE3: A2 05 496 LDX #5 
FFE5: BD Fl FF 497 STACKMOV LDA STACKPRO,X 
FFE8: 9D 00 01 498 STA STACK,X 
FFEB: CA 499 DEX 


BPL STACKMOV 















* 
502 »* LDY #$02 bei $BDO4 vornehmen 


503 * 
FFEE: AO 02 504 LDY +$02 
FFFO: 60 505 RTS 

506 œ 
FFFl: 2C 82 CO 507 STACKPRO HEX 2C82C0 


FFF4: 4C HEX 4CO6BD 










* 


FFF7: AD 82 CO 510 RESET LDA $C082 : RDROM 
FFFA: F7 FF 511 DA RESET 
FFFC: F7 FF 512 DA RESET 


FFFE: F7 RESET 





739 bytes 





RAMDISKLC 


BSAVE RAMDISKLC, A24861, 


$6118: 
$6120: 
$6128: 
$6130: 
$6138: 
$6140: 
$6148: 
$6150: 
$6158: 
$6160: 
$6168: 
$6170: 
$6178: 
$6180: 
$6188: 
$6190: 
$6198: 
$61A0: 
$61A8: 
$61BO: 
$61B8: 
$6100: 
$61C8: 
$61D0: 
$61D8: 
$61EO: 
$61E8: 
$61FO: 
$61F8: 


Apple DOS 3.3 — 


00 
49 
DO 
11 
06 
BB 
03 
CB 
C9 
AO 
2C 
BD 
CA 
9D 
co 
65 
A2 
ED 
8D 
E9 
87 
CO 
CE 


00 
61 
F5 
C9 
c9 
61 
8D 
CC 
EE 
00 
80 
00 
10 
00 
AD 
9D 
00 
FD 
C4 
E6 
8D 
A9 
A8 
DO 
AO 
DO 
DO 
00 
AD 


00 
FO 
20 
EE 
EA 
20 
D2 
C3 
E9 
84 


00 
20 
FD 
OD 
02 
61 
CD 


A2 
ED 
c9 
c9 
DO 
EA 
C4 
E9 
CA 
49 
FF 
61 
BD 
F7 
00 
DO 
FO 
4C 
ED 
E5 
CO 
A9 
DO 
CO 
A8 
A6 
BD 
F7 
58 


N 
N 
O 


AY 
Ņ 


L739 


00 
FD 
CE 
CA 
EB 
4C 
c9 
F4 
AF 
AO 
A2 
DO 
68 
AD 
BD 
F7 
06 
45 
EF 
F2 
AC 
00 
FB 
AC 
91 
CF 
00 
AD 
FC 


BD 
E8 
FO 
FO 
20 
DO 
D3 
AO 
CE 
02 
05 
20 
61 
81 
00 
60 
20 
61 
E4 
F4 
83 
85 
EG 
8B 


Tips und Tricks 


von U. Stiehl 


RAM-Disk-VTOC 
$6200: 
$6208: 
$6210: 
$6218: 
$6220: 
$6228: 
$6230: 
$6238: 
$6240: 
$6248: 
$6250: 
$6258: 
$6260: 
$6268: 
$6270: 
$6278: 
$6280: 
$6288: 
$6290: 
$6298: 
$62A0: 
$62A8: 
$62B0: 
$62B8: 
$62C0: 
$62C8: 
$62D0: 
$62D8: 
$62E0: 
$62E8: 
$62F0: 
$62F8: 


2. Aufl. 1984, 216 S., mit zahlreichen, 
ausfuhrlich kommentierten Programm- 


listings, kart., DM 28,— 


ISBN 3-7785-1049-5 


Dr. Alfred Hüthig Verlag : Postf. 10 28 69 - 6900 Heidelberg 1 
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UCH-TIP 


11 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
FC 
FF 
00 





4C 
00 
CO 
9D 
Bl 
c8 
38 
FO 
FF 
Bl 
8D 
AA 
EO 
A9 
EO 
c9 
EO 
18 
DO 
FO 
CO 
AD 
FC 
Bl 
AO 
20 
FF 
01 
CA 
9D 
60 
82 


Eigentlicher 
$6300: 
$6308: 
$6310: 
$6318: 
$6320: 
$6328: 
$6330: 
$6338: 
$6340: 
$6348: 
$6350: 
$6358: 
$6360: 
$6368: 
$6370: 
$6378: 
$6380: 
$6388: 
$6390: 
$6398: 
$63A0: 
$63A8: 
$63B0: 
$63B8: 
$6300: 
$63C8: 
$63D0: 
$63D8: 
$63E0: 
$63E8: 
$63F0: 
$63F8: 


OA 
00 
AD 
06 
48 
FF 
4C 
FO 
AO 
48 
04 
AD 
00 
Dl 
02 
14 
OF 
65 
DO 
18 
AD 
05 
91 
FE 


Ny | 
er 
ia 


dBASE Il 
Band 1: Einführung 


von Wolfgang Eggerichs 


Driver 


30 
48 
CO 
CA 
03 
OD 
FF 
03 
Bl 
FF 


üthig BUCH 


y yy 
BT 
u 


TIP 


RUNTER, 


1984, 174 S., kart., DM 39,80 
ISBN 3-7785-0986-1 


Dr. Alfred Hüthig Verlag : Postf. 10 28 69 - 6900 Heidelberg 1 
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Die Firma IBS (Ingenieurbüro Speco- 
vius, Olper Str. 10, 4800 Bielefeld) ist 
bekannt durch eine riesige Auswahl an 
Zusatzkarten für den Apple Il Plus und 
lle (nicht llc, da letzteres Gerät keine 
Slots hat). Wer will, kann z.B. seinen 
Apple durch eine 68000-Karte (AP 20) 
oder Z80B-Karte (AP 22) aufwerten. 
Daruber hinaus sind diverse Interface- 
Karten fur Techniker lieferbar. Im nach- 
folgenden Beitrag beschranken wir uns 
auf die RAM-Karten. 


RAM-Karten lassen sich in drei Gruppen 
einteilen: 


1. Reine RAM-Karten 


Wer eine RAM-Karte nur als RAM-Disk 
oder als sonstigen schnellen Zwischen- 
speicher fur Daten benutzen will, wird sich 
selbstverstandlich eine reine RAM-Karte 
kaufen. Zu den reinen RAM-Karten von 
IBS gehören 
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— AP 17: RAM-Karte mit maximal 256K, 
die in unterschiedlichen Ausbaustufen 
(64K, 128K, 196K und schließlich 256K) 
geliefert werden kann. Die oben abgebil- 
deten Karten zeigen drei der möglichen 
Ausbaustufen. Es liegen RAM-Disk-Driver 
für DOS 3.3, Pascal 1.1 und CP/M 2.2 vor, 
d.h. ProDOS fehlt z.Zt. noch. 

— AP 33: RAM-Karte mit wahlweise 256K 
oder 1024K (= 1M) RAM. Es liegen die 
gleichen RAM-Disk-Driver wie bei der AP 
17 vor. 


2. Prozessor-RAM-Karten 


Prozessorkarten, die über zusätzliches 
RAM verfügen, lassen sich zwar ebenfalls 
meist als RAM-Disks einsetzen, doch wä- 
re es eine Geldverschwendung, etwa eine 
68000-Karte nur als Pseudo-Disk einzu- 
setzen. Umgekehrt, auch wenn man eine 
Prozessor-Karte normalerweise für den 
Einsatz eines applefremden Betriebssy- 





Die RAM-Karten vol 


Mit Quellcode eines RAM-Disk-Drivers 


stems (CP/M usw.) benötigt, ist es ganz 
nützlich zu wissen, daß man unter DOS 
3.3 oder Pascal die Karte nicht brachliegen 
lassen muß. Zu den IBS-Prozessor-RAM- 
Karten gehören 

— AP 20: INTEMEX 68000-Karte mit wahl- 
weise 128K oder 512K RAM. Es liegen 
RAM-Disk-Driver für DOS 3.3, Pascal 1.1 
und CP/M 2.2 vor, also auch hier noch 
nicht für ProDOS. 

— AP 25: INTEMEX 8086 mit wahlweise 
128K oder 512K RAM. Mit denselben Dri- 
vern wie bei der AP 20. 


3. Mehrfunktion-RAM-Karten 


Unter diesem Begriff fassen wir RAM-Kar- 
ten zusammen, die vielfältig eingesetzt 
werden können. Hierzu gehört insbeson- 
dere die 64K-Karte des Apple lle (bei IBS 
als AP 27 lieferbar), die zusätzlich folgen- 
den Funktionen dienen kann: 

a) 80-Zeichendarstellung 








b) Double-Lores-Grafik 

c) Double-Hires-Grafik 

d) ,Pseudo-Coprocessing “ 

Die letztgenannte Funktion wird Gegen- 
stand eines gesonderten „Peeker“-Arti- 
kels sein. 


128K-RAM-Karte 


Nachfolgend beschränken wir uns auf die 
AP 20 mit 128K RAM (funktionsgleich mit 
der AP 17 in der 128K-Ausbaustufe), für 
die wir bereits vor einem Jahr Utilities für 
den Transfer von Meßdaten in unserer Hü- 
thig-Zeitschrift „CAL“ veröffentlicht ha- 


ben. Diese Transfer- oder Move-Utilities‘ 


umgehen den RAM-Disk-Driver, wodurch 
eine noch höhere Datenübertragungsrate 
erzielt werden kann, was bei Meßdatener- 
fassung bisweilen notwendig ist. 

Wie aus Diagramm 1 ersichtlich ist, wer- 
den die 128K ($000000-$01F0000) der 
AP 20 softswitchmäßig in 32 Blöcke zu je 


4K eingeteilt. Da der 6502-Prozessor nur 
64K adressieren kann, läßt sich ein Byte 
von der oder auf die Karte nicht mit z.B. 
LDA $01FFFF 

STA $2000 

oder 

LDA $1111 

STA $011111 

direkt Ubertragen. Deshalb werden 3 4K- 
Blöcke $D000-$DFFF, $E000-$EFFF und 
$F000-FFFF als Pseudo-Adressen für die 
128K-RAM-Karte benutzt. Beispiel: 


LDA $C082 LC abstellen 

STA $COCF AP einschalten 
LDA $1000 $1000 laden und in 
STA $F000 $01F000 speichern 
STA $COCO AP abstellen 

RTS 














Block-Nr. für 
32 4K-Blöcke 


Softswitch Pseudo-Adresse 
fur Slot 4 fir LDA und STA 


einer RAM-Disk dieser $01FFOO-Bereich 
(= 1 Sektor) freigehalten werden muB, 
falls der Driver im Slot-RAM liegt. 


Die skizzierte Methode des Bank-Selec- 
ting mit 4K-Blöcken und dem Pseudo- 
AdreBbereich $D000—$FFFF hat den Vor- 
teil, daß die Datenübertragungsrate selbst 
bei einer RAM-Disk, falls diese per RWTS 
angesprochen wird, 64K/s beträgt. Nach- 
teilig ist dagegen der Umstand, daß ein 
direkter Datentransfer zwischen 128K- 
Karte und Apple-LC nicht möglich ist. 


Deshalb dürfte ein ProDOS-RAM-Disk- 
Driver nur über einen Zwischenpuffer in 
den unteren 48K zu realisieren sein, weil 
PRODOS in der Bank 1 der LC liegt. Da- 
durch sinkt jedoch die Datenübertra- 
gungsrate stark ab. 








Echte 
128K-Adresse 


- $000000 
$001000 


$003000 





— $01D000 
— $01E000 
$01F000 





Diagramm 1: Organisation der IBS-128K-RAM-Karte 


Dieses Mini-Programm würde das Byte 
der Speicherstelle $1000 des Apple-RAM 
in die Speicherstelle $01F000 der AP 20 
übertragen. Man beachte also, daß STA 
$F000 nicht das Byte in die Apple-Lan- 
guage-Card $F000 oder gar in das Apple- 
ROM $F000 pokt. Welche Softswitches im 
einzelnen angesprochen werden müssen, 
ergibt sich aus einer (für Anfänger leider 
nicht besonders übersichtlichen) Tabelle, 
die in dem AP-20-Handbuch enthalten ist. 
Die Softswitches sind slotabhängig, wobei 
die RAM-Karte in einen beliebigen Slot 
gesteckt werden kann. Der Slotbereich, 
z.B. $C400-$C4FF ist nicht ROM, sondern 
RAM, so daß man den Driver für die RAM- 
Disk oder eine sonstige Transfer-Utility in 
diesen Bereich BLOADen kann, falls das 
Programm dort platzmäßig unterzubringen 
ist. Diese Methode hat jedoch einen klei- 
nen Schönheitsfehler, weil der Bereich 
$01FFOO-$01FFFF in den Slotbereich 
$Cn00-$CnFF ,gemappt" ist, so daß bei 


Hinweis zu den Listings: Das Programm 
IBS-RAM-Diskdriver stellt den diassem- 
blierten Objekt-Code eines von Gerd 
Blanke für die Firma IBS entwickelten Dri- 
vers für die AP 20 dar. Man beachte, daß 
dieser Driver neben $BDOO auch $A5B2 
als absolute DOS-Adressen benutzt, wes- 
halb manche modifizierten DOS-Versio- 
nen entsprechend angepaßt werden müs- 
sen. Der AP20.RAMDISKTEST zeigt, wie 
man auf die RAM-Disk per RWTS direkt 
zugreifen kann, womit eine Datenübertra- 
gungsrate erzielt werden kann, die einer 
Transfer-Utility (ohne RAM-Disk-Driver) 
sehr nahekommt. 

us 
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ORG $C400 


: LDA INTERPR ‚Basic-Anf. 
IBS-RAM-Diskdriver : STA FPINT+1 
-_  —  _—______ _ _ _ _ 3 * 


* Track/Sektor in RAM-Disk-Bereich umwandeln 
RAM-Diskdriver für IBS-AP2O . 


128K-RAM-Karte in Slot 4. x LDY #$04 ; Spur 
Von Gerd Blanke fiir IBS, i LDA (I0B),Y 
Bielefeld, geschrieben { SEC 
Disassembliert von U.Stiehl. : SBC #$01 
Bei dieser Karte ist der i LSR 
Bereich $Cn00-$CnFF Slot-RAM, : TAX 
nicht Slot-ROM! i LDA AP20BANK,X 
(Man beachte, daß nur der Driver : LDX +#$00 ; Low=00 
und nicht die SOFT- und INIT-Module i PHA 
disassembliert wurden.) : AND +$FO 
: BCC TRSEC1 
IOB EQU $0048 ;von Rwts i ADC +#$07 
RDWR EQU $003C ;Read/Write ; : TRSEC1 STA TRSEC 
TRSEC EQU $003D ;Track/Sektor : INY 
RWTS EQU $BD04 ‚weiter $ LDA (IOB),Y ‚Sektor 
SETROM EQU $A5B2 ;FPINT : AND #$07 
INTERPR EQU $E000 ;FPINT ; ORA TRSEC 
* : BIT RDWR 
* Wenn Slot 4, dann RAM-Disk, s BMI TRSEC2 
* andernfalls normale RWTS å STA DUMMY2+2 
* : STX DUMMY2+1 
ENTRY STY IOB ‚von $BDOO Å BPL TRSEC3 
STA IOB+l ; TRSEC2 STA DUMMY1+2 
LDY #$01 ;Jetztslot : STX DUMMY1+1 
LDA (I0B),Y : TRSEC3 LDA (IOB),Y 
CMP +#$40 ;Slot 4 : AND #$08 
PHP å STA TRSEC 
LDY #$0F ;Vorslot : PLA 
LDA (I0B),Y : AND #$0F 
PLP ; ORA TRSEC 
BEQ SLDR1 : ORA #$CO 
CMP +#$40 : STA SOFTON+1 
BNE OLDRWTS * 
VORSLOT LDA #$60 ;gepokt * DOS-Puffer ermitteln 
STA (IOB),Y ;Vorslot * 
INY : LDY +#$08 
VORDRIVE LDA #$01 ;gepokt i LDA (IOB),Y ;Low-Buffer 
STA (IOB),Y ;Vordrive i PHA 
OLDRWTS JMP RWTS : INY 
* : LDA (IOB),Y ;High-Buffer 
* Vorslot und Vordrive poken : BIT RDWR 
* å BMI DOSPUFF 
SLDR1 CMP +#$40 : STA DUMMY1+2 ;Write 
BEQ SLDR2 : PLA 
STA VORSLOT+1 : STA DUMMY1+1 
LDA #$40 ¡Slot 4 : JMP RDROM 
STA (IOB),Y ; DOSPUFF STA DUMMY2+2 
INY A PLA 
LDA (I0B),Y : STA DUMMY2+1 
STA VORDRIVE+1 * 
LDY #$02 ‚Jetztdrive * Softswitches aktivieren 
LDA (IOB),Y * 
LDY: +$10 ; Vordrive : RDROM STA $C082 ; LCOFF 
STA (I0B),Y i SOFTON STA $C0C2 ;gepokt 
CMP +$02 Drive > 27 * 
BCS IOERROR * Total gepokte Move-Routine: 
* * Entweder Read AP2O, Write Puffer 
* Befehl ermitteln * oder Read Puffer, Write AP2O 
* * 
LDY #$0C ¡Befehl : DUMMY1 LDA $1000,X ; Dummy 
LDA (I0B),Y : DUMMY2 STA $1000,X ; Dummy 
BNE INIT? : INX 
* : BNE DUMMY1 
* Bei Seek + Init sofort Exit Å SOFTOFF STA $COCO 
* * 
EXIT CLC ;00=Seek * LC ein- oder ausschalten 
ERRNUM LDY #$0D ;Error-Nr. * 
STA (IOB),Y : FPINT LDA #$4C ;gepokt 
RTS ‚Ende : JSR SETROM 
* : TXA ;Error=0 
INIT? CMP #$04 ;04=Init : JMP EXIT 
BNE READ? * 
IOERROR LDA #$40 ;1/0-Error å COPYRT ASC "»***(C) 1983 " 
SEC ; ASC "GERD BLANKE##«*" 
BCS ERRNUM * 
. * Tabelle der AP20-Bank-Softswitches 
* Read=01 (BMI), Write=02 (BPL) * 
* C4FO: E2 D4 AP20BANK HEX E2D4E4F4 
READ? LSR ¡Bit O bei Read C4F4: F2 D6 HEX F2D6E6F6 
ROR RDWR ;Bit 7 bei RDWR C4F8: E3 D5 HEX ES3D5E5F5 
+ CAFC: F3 D7 HEX F3D7E7F”7 
* Language Card (wegen Integer Basic) aktiv? 256 bytes 


OM SIDAN 


* * Ke k k k k k k k k k k k K 


* 
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0342: 
0344: 
0347: 
0349: 
034C: 
034E: 
0351: 
0354: 
0357: 
0354: 
035C: 
O35E: 
0360: 
0363: 
0365: 
0368: 
0369: 
O36A: 
036C: 
036F : 


: 4C 1B 03 


01 


: 40 


01 
00 
00 
00 
14 
03 
00 
20 
00 
01 
00 
00 


: 40 


01 


: 00 
: D8 


Ol 
20 


: 00 


112 bytes 


I 


OMDANNE 


RAM-disk de 


ORG 








$ Ablag 


$300 


AP20 . RAMDISKTEST 


Für RAM-Disk mit 128K: 


Dauer des Testlaufs: 


As 


Es werden also ca. 64K/s 
* gelesen oder geschrieben 


* 
RWTS 
PUFFER 
PRINT 
* 


* 


PUFFLOW 
PUFFHIGH 


READWRIT 
ERRCODE 


* 
TRCKANF 
TRCKEND 
TRCKCNT 
+ 


EQU 
EQU 
EQU 


JMP 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


DFB 
DFB 


DFB 
DFB 


$03D9 
$2000 
$FDED 


START 


1 
$40 ¡Slot 4 
¡Drive 1 
; Volume 
‚Track 


‚Sektor 


;$4000 


;frei 
> 1=R; 2=W 


;volume 
$40 ¿Slot 4 
1 ¡Drive 1 


0, 1,239,216 


1 
32 
0 ‚Zähler 


* Von Track 1-32 je Read/Write 


* 
START 


TRCKLOOP 


* 


LDA 
STA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
INC 
LDA 
CMP 
BEQ 
BCC 
RTS 


* Read/Write 
* von/in Sektor $0F-$00 
* in/aus Puffer $2000-2FFF 


* 
READWRT 


SECTLOOP 


RETURN 


LDA 
STA 
LDA 
STA 
LDA 
STA 
INC 
DEC 
LDA 
BMI 
LDA 
LDY 
JSR 
BCS 
JMP 
PLA 
PLA 
LDA 
JSR 
RTS 


TRCKANF 
TRCKCNT 
TRACK 

+1 
READWRIT 
READWRT 
#2 
READWRIT 
READWRT 
TRCKCNT 
TRCKCNT 
TRCKEND 
TRCKLOOP 
TRCKLOOP 


eines Tracks 


#16 
SECTOR 
#<PUFFER 
PUFFLOW 
#>PUFFER-1 
PUFFHIGH 
PUFFHIGH 
SECTOR 
SECTOR 
RETURN 
#>IOB 
4+<IOB 
RWTS 
ERROR 
SECTLOOP 


; 16-1 


;—256 
;$1F00 


+$87 
PRINT 


andah 


y Bismarckstr. 67, D-1000 Berlin 12 


| spiele läßt sich mit APPLESOFT BA- 


i Stanton fåhrt in die Eigenarten der 
hochauflösenden Apple-Grafik ein 








vas 


030) 342 88 00 





Hilfsmittel 


Gratis! 


AppleQuick 


Das handliche Nachschlagewerk 
für häufig gebrauchte Adressen 
und Befehle! 

64 Seiten über Applesoft, DOS, 
ProDOS, Pascal, CP/M. 
Gleich anfordern! 


e Bearbeiten Zeichensatz Größe Stil 


Pandabooks == 


pple Grafik ? 
Pandabooks! 


Mikrocomputer 
Grafik 
Roy E. Myers 


Endlich anspruchsvolle Computer- 
grafik fur BASIC-Programmierer! 
Mikrocomputer Grafik: 

- enthaålt fast 80 lauffertige 
BASIC-Programme, die die be- 
schriebenen Grafikkonzepte 
illustrieren. 

- beschreibt "Hidden Line"- und 
"Hidden Surface"-Methoden, ; 
Skalierung, Rotation und Trans- f 
lation von Grafiken. 

- bietet eine Einführung in die 
Animationstechnik. 

3-89058-000-9 292 S. DM 49,-- 

komplett mit Disk DM 89,-- 


| Die Qualitåt kommerzieller Arcade- 

Apple II 
Raster Grafik 
Jeffrey Stanton 


und pråsentiert schlieBlich eine 
i Reihe extrem schneller Assembler- 


i Routinen, mit denen Sie viele Effek- 


| te bekannter Spiele selbst program-| 


i mieren können. Gute BASIC-Kennt- 
| nisse werden vorausgesetzt, eine 


| Einführung in Assembler-Program- 


i mierung wird gegeben. 


3-89058-006-8 2995. 
komplett mit Disk 


DM 49,-- 
DM 89,-- 


22 Pascal-Programme, mit denen 
Sie die Grafik-Möglichkeiten Ihres 
Apple voll ausschöpfen: 

“DESIGNER” ermöglicht es Ihnen, ei- 
gene Zeichensétze zu entwerfen; 
"GREDIT” unterstútzt Sie beim Ent- 
werfen kompletter Bildschirm- 
Grafiker; 

"PRINTFOTO" bringt Ihre Entwürfe 
aufs Papier. Daruberhinaus bietet 
das Buch eine Fulle fertiger Proze- 
duren, die Sie zeitsparend in Ihre 
eigenen Programme einbauen können 
3-89058-009-2 2805. DM 49,-- 
komplett mit Disk DM 89,-- 


Pascal Grafik 


Tom Swan 


In allen Buchhandlungen und Computershops oder direkt von: 
Pandabooks, Bismarckstr. 67, 1000 Berlin 12, (030) 342 88 00 
ME Bestelicoupon BEBREREERENEEREEEENE NE 
O V-Scheck liegt bei 
(spesenfreie Lieferung) 
O per Nachnahme 
(zzgl. Versandspesen) 


Name: 
Anschrift: 


Menge ` Titel 
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Das im ProDOS-FILER enthaltene Teilpro- 
gramm zum Kopieren ganzer Disketten 
hat drei Nachteile: 


— Erstens ist es zu langsam, da immer nur 
schubweise 4 Spuren kopiert werden mit 
der Folge, daß beispielsweise bei der klas- 
sischen 35-Spur-Diskette 9 Durchläufe für 
Lesen und Schreiben erforderlich sind, 
was zu einer beachtlichen Geschwindig- 
keitsreduzierung führt, denn der Lauf- 
werkmotor muß insgesamt 19mal ein- und 
ausgeschaltet werden (1mal für Formatie- 
ren, 9mal für Lesen und 9mal für 
Schreiben). 


— Zweitens können neben dem Profile- 
Festplattenlaufwerk und dem 35-Spur- 
Diskettenlaufwerk keine anderen Disk- 
Drives, z.B. solche für 40- oder 80-Spur- 
Disketten benutzt werden. 


— Drittens kann man vom ProDOS-FILER 
nicht, wie dies bei dem früheren COPYA 
für DOS 3.3 der Fall war, direkt in den 
Applesoft-Modus zurück, sondern muß 
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KCOPY 





von Ulrich Stiehl 


Ein schnelles ProDOS-Kopierprogramm 


vielmehr das BASIC.SYSTEM neu laden, 
wodurch unnötige Zeit verlorengeht. 


Nachfolgend werden deshalb zwei neue 
ProDOS-Kopierprogramme — PRODOS.- 
COPYA und QUICKCOPY — vorgestellt. 
Für beide Programme gilt gemeinsam: 


1. Sie sind nur für Diskettenlaufwerke, 
nicht für Festplattenlaufwerke gedacht, 
doch können beliebig viele Spuren kopiert 
werden, so daß auch 40- und 80-Spur- 
Disketten duplizierbar sind. 

2. Sie können verlassen werden, ohne daß 
man danach neu booten muß, d.h. das 
BASIC.SYSTEM wird nicht gelöscht oder 
verändert. 

3. Sie sind erheblich schneller als der Pro- 
DOS-FILER. Das Kopieren einer 35-Spur- 
Diskette dauert beim ProDOS-FILER 76s, 
beim PRODOS.COPYA 63s und beim 
QUICKCOPY 578. 

4. Sie sind für Besitzer von 2 Laufwerken 
gedacht. (Für diejenigen, die nur über ein 
einziges Drive verfügen, können auf 


für 35-80 Spuren 


Wunsch der Leser spezielle 1-Drive-Ko- 
pierprogramme veröffentlicht werden. 
Schreiben Sie an die Redaktion von 
„Peeker“!) 

5. Sie enthalten als Kleinzitat eine leicht 
modifizierte Version der Formatierroutine, 
die Bestandteil des ProDOS-FILERS ist. 
Diese Routine kann unabhängig vom 
FILER mit 

BLOAD FILER, TSYS, A$7900, B$5900, 
L$043A 

eingeladen werden. Assembler-Program- 
mierer können die Routine dann mit 

LDA UNITNUMBER 

JSR $7900 

aufrufen. Zuvor kann man noch mit 

LDA VOLUME-NUMMER 

STA $79EF 

die Volume-Nummer und mit 

LDA SPUR-ANZAHL 

STA $79F4 

die Anzahl der Spuren festlegen. 

6. Sie können neben ProDOS- auch 
DOS-, Pascal- und CP/M-Disketten kopie- 





ren. Allerdings muß vorher auf alle Fälle 
das ProDOS-Betriebssystem gestartet 
worden sein. 


QUICKCOPY 


QUICKCOPY ist als professionelles Ko- 
pierprogramm für Besitzer des Apple Ilc 
oder des Apple Ile mit 64K-Karte gedacht. 
Es wird mit BRUN QUICKCOPY gestartet 
und meldet sich mit „Start J/N“. Bevor 
man „J“ oder „j“ tippt, muß man bereits 
Original- und Duplikatdiskette eingelegt 
haben. Ferner sollte man daran denken, 
daß durch QUICKCOPY der Inhalt der 
RAM-Disk zerstört wird. 

Man muß bei QUICKCOPY im Gegensatz 
zum ProDOS-FILER und zum PRODOS.- 
COPYA keinen Fragenkatalog durchge- 
hen, sondern kann direkt mit dem Kopie- 
ren beginnen. QUICKCOPY gestattet eine 
individuelle Konfigurierung durch entspre- 
chende Pokes: 


BLOAD QUICKCOPY 


POKE 2222 + 3, Original-Slot (1-7) 
POKE 2222 + 4, Original-Drive (1-2) 
POKE 2222 + 5, Duplikat-Slot (1-7) 
POKE 2222 + 6, Duplikat-Drive (1-2) 
POKE 2222 + 7, Volume-Nummer 
(1-254) 

POKE 2222 + 8, INIT (0 = nein; 1 = ja) 
POKE 2222 + 9, Spur-Anzahl (35-160) 
POKE 2222 + 10, Durchläufe (?) 

POKE 2222 + 11, Puffer-Ende (?) 


BSAVE QUICKCOPY, A2222, L1881 


Anmerkungen: 


a) Man beachte, daß QUICKCOPY für 2- 
Drive-Besitzer gedacht ist, d.h. Original- 
Slot und -Drive dürfen nicht mit Duplikat- 
Slot und -Drive identisch sein. Die Drives 
brauchen indes nicht an demselben Slot 
angeschlossen zu sein. 

b) Die Volume-Nummer kann man ignorie- 
ren, da sie auch vom ProDOS-Betriebssy- 
stem ignoriert wird. Der ProDOS-FILER 
formatiert übrigens stets mit Volume- 
Nummer 1. 

c) Das INIT-Flag bestimmt, ob die Dupli- 
katdiskette vor dem Kopiervorgang forma- 
tiert wird oder nicht. Wenn man als Dupli- 
katdisketten bereits fruher initialisierte Dis- 
ketten benutzt, kann man viel Zeit sparen, 
da dann QUICKCOPY nur 35s für den 
gesamten Kopiervorgang benötigt. 
QUICKCOPY prüft bei INIT-Flag = 0 (= 
kein INIT), ob die Diskette bereits forma- 
tiert war. Wenn dies nicht der Fall sein 


sollte, erfolgt die Formatierung automa- 
tisch. Man könnte also das INIT-Flag per- 
manent auf 0 setzen. 

d) Spur-Anzahl, Anzahl der Durchläufe 
und Puffer-Ende (als Page) sind techni- 
scher Natur. Beispiel: Eine 35-Spur-Dis- 
Kette hat 140K Speicherkapazität. Da der 
interne Kopierpuffer von QUICKCOPY 
maximal 70K betrågt, benötigt man fur ei- 
ne solche Diskette 2 Kopierdurchlåufe 
(70K mal 2 = 140k). Die Pufferobergrenze 
betragt dann $9A00 und die Page ware 
$9A. Das kleine Applesoft-Programm 
QUICKCOPY.PUFFER errechnet nach 
Eingabe der Spur-Anzahl automatisch die 
zu pokenden Werte für die Durchläufe und 
das Puffer-Ende. 

e) Die Ersatz-Parameter sind bei dem geli- 
steten Programm auf Slot 6, Drive 1 und 2, 
INIT ja und 35 Spuren eingestellt, also die 
normale Konfiguration für 2-Drive-Be- 
sitzer. 


QUICKCOPY gehört zu jenen sich selbst 
verschiebenden Programmen, die sehr 
schwer durchschaubar wåren, wenn man 
nicht über den Quell-Code verfügte. Die 
nachfolgenden Anmerkungen beziehen 
sich auf die Zeilennummern des Assem- 
bler-Listings: 


1-118: Umfaßt 
Sprung zum Menü. 


Parameter-Liste und 
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119-767: Enthält modifizierte und neu as- 
semblierte Formatierroutine aus dem Pro- 
DOS-FILER (hier nicht gelistet). 
768-801: Tastaturabfrage für „Start J/N“. 
802-844: Dieser Teil kopiert die Global 
Page von den unteren 48K des Mother- 
boards in die oberen 48K der 64K-Karte, 
sichert den momentanen Inhalt der Zero- 
Page und verschiebt dann das eigentliche 
Kopierprogramm komplett in die Zero- 
Page. Dies ist ungewöhnlich, jedoch we- 
gen der Softswitches der 64K-Karte hier 
besonders vorteilhaft, da somit die Disket- 
ten-Blocks direkt in die 64K-Karte geladen 
werden können, womit zeitraubende 
Move-Routinen entfallen. Die Datenüber- 
tragungsrate von ca. 8K/s wäre sonst für 
den 64K-Karte-Puffer nicht zu erreichen 
(280K : 35s = 8K/s). 

845-900: Aufruf der Formatierroutine. 
901-920: Aufruf der Kopierroutine in der 
Zero-Page. Danach wird der alte Zustand 
der Zero-Page wieder hergestellt und zum 
Menü zurückgesprungen. 

921-940: Unterroutine zum Sichern und 
Wiederherstellen der Zero-Page. 
941-951: Unterroutine, die Slot- und 
Drive-Nummer zur sog. Unit-Number in 
ein einziges Byte packt. 

952-978: Hier wird erstens die PRODOS- 
Spurprüfroutine gepatcht, so daß nunmehr 
auch Disketten mit mehr als 280 Blocks (= 


ProDOS-Editor 1.0 


Applesoft-Editor 
unter ProDOS-Betriebssystem 


von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1024-X 


Mit diesem neuen Editor — übrigens 
der bislang einzige deutsche Pro- 
DOS-Editor — wird dem Applesoft- 
Programmierer ein Werkzeug zur ef- 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle- 
samt unter ProDOS nicht mehr lauf- 
fähig. 


Unter anderem sind folgende Fea- 
tures implementiert worden: 


— Zeilenorientierter Editor mit jedem er- 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe- 
wegung in allen vier Richtungen, Einga- 
be von Ctrl-Buchstaben in Applesoft- 
Zeilen usw.) 

— Renumber (Zeilen-Umnumerierung) 

— Xreference (sortierte Variablenliste) 

— Suchen von Tokens, Strings und Varia- 
blen 

— dezimale und hexadezimale Umrech- 
nungen 

— Ausführung von Monitorbefehlen aus 
dem Editor heraus 

— Listen des Applesoft-Programms in 
speicherinterner Form als Hex-Dump 

— Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich. einschließlich der 
Language-Card 

— frei definierbare Tastatur-Macrobefehle 


Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor- 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 


Gerätevoraussetzung: Apple Il+, lle 
oder llc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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48K Aux. 


Global Page 
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48K Main 


Global Page — 


BASIC-SYSTEM 
E 
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La 


QUICKCOPY 
QUICKCOPY 





Diagramm 1: Speicherverteilung bei QUICKCOPY 


35 Spuren) kopiert werden können, und 
zweitens wird die RAM-Disk abgestellt, da 
die 64K-Karte als Puffer verwendet wird. 
979-1103: Dies ist die eigentliche Kopier- 
routine. Wenn eine 35-Spur-Diskette du- 
pliziert wird, wird in nur zwei Durchläufen 
oder Schüben von je 70K, die sich in 
36.5K auf der 64K-Karte und 33.5K auf 
den unteren 48K einteilen, die ganze Ori- 
ginaldiskette auf die Duplikatdiskette ko- 
piert. Zeile 992—996 kontrolliert die Anzahl 
der Durchlåufe. Zeile 1003—1024 ist die 
70K-Hauptlese- und -schreibschleife. Zei- 
le 1037—1045 aktiviert und deaktiviert die 
64K-Karte. Zeile 1047-1079 kontrolliert 
die 70K-Lese-Schreibvorgånge, die durch 
die Read- und Write-Block-Routinen in 
Zeile 1081-1103 auf Blockebene durch- 
geführt werden. Die Block-Routinen gehö- 
ren zum sog. MLI = Machine Language 
Interface, das in einem späteren Heft von 
„Peeker“ analysiert wird. 


Das Diagramm 1 veranschaulicht die 
Speicherorganisation von QUICKCOPY. 


2. PRODOS.COPYA 


PRODOS.COPYA - das dem alten 
COPYA für DOS 3.3 nachempfunden ist — 
läuft auf jedem Apple mit 64K, z.B. Apple Il 


Plus oder Apple lle ohne 64K-Karte usw. 
Es benutzt einen konstanten, 32K groBen 
Datenpuffer, der 8 Spuren aufnehmen 
kann. Für 80-Spurlaufwerke wären damit 
10 Durchläufe erforderlich (gegenüber 5 
Durchlåufen bei QUICKCOPY). PRODOS.- 
COPYA wird durch das Applesoft-Pro- 
gramm namens PRODOS.COPYA gestar- 
tet, welches seinerseits PRODOS.- 
COPYOBJ einlädt. In dem Applesoft-Pro- 
gramm können in Zeile 120 die folgenden 
Variablen geändert werden: 


OS = Original-Slot 
OD = Original-Drive 
DS = Duplikat-Slot 
DD = Duplikat-Drive 
S = Spurenanzahl 


Wenn man mit dem Programm erst einmal 
vertraut ist, kann man auf PRODOS.- 
COPYA gänzlich verzichten und mit 
BRUN PRODOS.COPYOBJ 

das Kopierprogramm direkt starten, da es 
ein eigenes Menü mit „START J/N“ hat. 
Aus Platzgründen ist zu PRODOS.- 
COPYOBJ nur der Hex-Dump abgedruckt. 


Hinweis: In einem der nächsten Hefte von 
„Peeker“ wird ein FID-ähnliches Pro- 
gramm zum Kopieren von Dateien veröf- 
fentlicht werden. 


Das UCSD p-System. 


msight Window Designe, 
UCSD Pasca/ 2 
Nær == f 
E 


PME 
BIOS 


(Lia N Professionelle Softwarewerkzeuge von FOCUS: 
Spa: virtuelle UCSD p-System: Das komplette Entwicklungssystem mit 
Peicherverwaltund UCSD Pascal, FORTRAN-77, BASIC, acht verschiedenen 
Assemblern und dem INSIGHT Window Designer. Für mehr als 
Datei kung 100 Rechner: Ihre Software läßt sich leicht auf alle diese 
eiverwa í Rechner übertragen. 
Datenbankverwaltund MacAdvantage Der UCSD Pascal Compiler für den 


Macintosh, der direkt mit dem Mac-Betriebssystem zusam- 
menarbeitet. Zugriff auf alle Macintosh-Features direkt 
von Pascal aus, volle Unterstützung für den 512K-'Fat 
Mac', symbolischer Debugger, Resource File Compiler. Der 


mitgelieferte Maus-Editor kann in mehreren Fenstern 
mehrere, beliebig lange Dateien bearbeiten. 
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eanla 
na yse Verken" 
WartUn Program, . 


T.L.D.U. Die programmierbare Disk-Utility für alle 
Computer der Apple II Serie. Mit Unterstützung für 35-, 
40-, 80- und 160-Spur-Laufwerke und Festplatten. För DOS, 
CP/M, UCSD oder ProDOS einstellbar. 100 Seiten deutsches 
Handbuch mit Tutorium, damit auch Anfänger Disketten edi- 
tieren und reparieren können. Empfohlener Verkaufspreis 


Computer GmbH DM 99,-- einschließlich Mehrwertsteuer. 


Friesenstr je Hannover 1 Sie können sich diese Produkte bei Ihrem Apple-Händler 


ansehen oder uns unter 0511-345461 anrufen. 








Apple Service Händler Level I 
24 Std. Reparaturservice 


Achtung: alle Geräte mit Seriennummer vom Hersteller 
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Apple lle mit 64 kb 2418,- DM Apple Scribe incl. Kabel 849,- DM Apple lle Monitor 562,- DM 
le | iter 12” : D 
Einstiegspaket a a a 1484—DM | Apple lic Monitor 512,- DM 
(lle, Monitor, Disk mit Contr.) 3368,- DM i > i Zenith ZVM-122-EA bernstein 299,- DM 
Apple Imagewriter 15 l - 

Disk m. C. (Prodos, DOS) 1177,- DM incl. Kabel 2176,- DM | Zenith ZVM-123-EA rün 307,- DM 
c 866— DM Apple A3 Plotter 4 Farben 2252,- DM | Taxan RGB Vision I, 15 MHz. 755,- DM 
rom 2. nn Eg = Taxan RGB Vision Il, 18 MHz. 1073,- DM 
Pene GONIT. NEDE Eno 1917—DM | Taxan RGB Vision lll, 20 MHz. 1368,- DM 
Profile 5 MB incl. Interf. 4299,- DM Parallel Interface incl. Kabel 211,- DM 80 Zeichenkarte lle 171,- DM 
II MOuse incl. Interface 376.- DM Seriell Interf. für Apple Drucker 211,- DM 80 Zeichenkarte + 64 kb 376,- DM 
parallel/seriell Interface 229,-DM | RGB +80 Zsicherikarte 399,- DM 

Apple lle RGB + 80 Zeichen + 64 kb 707,- DM 





Apple lic 2655,- DM 


Komplettpaket 
(Ilc incl. Monitor und 
Stander) 3249,- DM 


Ilc 2. laufwerk 855,- DM 
262,- DM 











Macintosh 128 kb 6299,- DM 
Macintosh 128 kb 

(110 V. Vers.) 5999,- DM 
Macintosh 512 kb 9188,- DM 
Aufrüstung auf 512 kb 2948,- DM 
Externes Laufwerk 1239,- DM 
Fordern Sie unsere Softwareliste an! 









Wir liefern jede Software für Apple 
z.B. Aztek C-Compiler für Macintosh 
1699,- DM 


Fordern Sie unsere Listen an! 






Ic Mouse incl. Mousepaint 

















Auf alle Apple Produkte 
1 Jahr Garantie 


Sonstige 6 Monate (Epson ohne Druckkopf) 
Alle Preise incl. Mehrwertsteuer 


Tel. 02634 / 36 36 / 3637 /36 38/36 39 
KF ali Telex: 868513 

IMCA/Auge Mailbox an U. Weidemann 
Bestellungen 5455 Rengsdorf Wohnplatz Weidemann 
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ORG 2222 * Nachtråglich ERROR-Nummer hier 
* 
QUICKCOPY für ProDOS O8BA: 00 ERROR HEX 00 
aI=<tt—=== * 
*———— -—-- - -- - A O O O - - 
Gerätevoraussetzung: Apple IIc * 
oder IIe mit 64K-Karte und * Original- und Duplikat-Unit 
2 Laufwerken . 
O8BB: 60 OUNIT HEX 60 ;S6,D1 
von U.Stiehl/06.10.84 O8BC: EO DUNIT HEX EO ;56,D2 
* 
HOME EQU $FC58 a O -_ — 
PRINT EQU $FDED + 
PRERR EQU $FF2D : START1 JSR HOME 
HEXOUT EQU $FDDA : LDX #0 
RDKEY EQU $FDOC ; START2 LDA STRING,X 
MLI EQU $BFOO y BEQ STARTS 
JSR PRINT 
Main $1400-$9A00 = . ; INX 
Aux. $0800-$9A00 = | ; BNE START2 
STARTS JMP START4 
Zusammen A - 
: STRING INV  "xQUICK-COPYx" 
PUFFBEGM EQU $1400 ; Mai : HEX 8D 
PUFFBEGA EQU $0800 ; ; : INV "U. STIEHL 84" 
* : HEX 8D8D 
O8AE: 4C BD 08 JMP START1 : ASC "START J/N " 
HEX 00 
HEX 0000000000 
0000000000 


K k*k k k k k k k *k *k 


* 


+ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
i 


In diesem Bereich können die 
gewünschten Parameter gepokt 
werden. 


ProDOS-Format 


Original-Slot und -Drive 


* * * k*k k k*k *k 


OSLOT HEX 06 Dem FILER der Firma Apple 
ODRIVE HEX 01 mit Modifikationen entnommen. 
x Hier nicht gelistet. 
* Duplikat-Slot und -Drive 
* 
DSLOT HEX 06 
DDRIVE HEX 02 AREA DS 256 
* 
* Volume-Nummer 1-254 ProDOS-Quickcopy 
* === 
VOLUME HEX 01 
* : TART4 BIT $C010 ;Strobe 
* Initflag: O=nein, l=ja : LDA #0 
. : STA ERROR ‚okay 
INITFLAG HEX 01 
* Durchláufe und Pufferende poken 
é i 
: LDA LAEUFE1 
Anzahl der Spuren, Anzahl der : STA: LAEUFE2 
Durchläufe und Ende des Puffers : LDA PUFFEND1 
müssen aufeinander abgestimmt : STA: PUFFEND2 
sein. Es gilt im einzelnen: * 
* MenU 
$23 Spuren, $02 Låufe, $9A Ende * 
$24 Spuren, $03 Låufe, $6E Ende : STARTS JSR RDKEY 
$28 Spuren, $04 Låufe, $5E Ende ; CMP #"J" 
$50 Spuren, $05 Läufe, $8E Ende a BEQ COPY1 
$AO Spuren, $0A Läufe, $8E Ende | CMP #"j" 
BEQ COPY1 
Jeder Lauf ist gleich groß, : CMP #"N" 
es gibt also keinen kleineren f BEQ EXIT1 
Restlauf. 100% optimal sind : CMP +"n" 
nur 35 = $23 Spuren, ftir die : BEQ EXIT1 
das Programm speziell å BNE STARTS 
geschrieben worden ist. * 
* Okay-Exit nach Menü 
Spuren * 
EXIT1 RTS 


08B7: 23 PUREN1 HEX 23 ; * 


KK OR 


* 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


* 
[> 
0: 
c 
c) 
oO 


* 
08B8: 02 LAEUFEl HEX 02 

* 

* Ende 

* : 20 03 OF 
O8B9: 9A PUFFEND1 HEX 9A 


Zero-Page retten und 
MLI-Routine in Zero-Page 
kopieren 


OPY1 JSR ZSAVER 


*¥ Q* * * * * 


* Global Page in 64K-Karte 
* duplizieren 
* 
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STA $C005 ; WRAUX 
LDX #0 
MLICOPY LDA MLI,X 
STA MLI,X 
INX 
BNE MLICOPY 
STA $C004 ; WRMAIN 


Kopieren 


. MLI-Unit-Number poken 
* Mehr als 280 Blocks zulassen 
w OPY2 LDA OUNIT 
STA: RDUNIT 
LDA DUNIT 


STA: WRUNIT 


JSR PATCH ‚Spuren 
* 
* Volume-Nummer und Spur-Anzahl 
* für Format poken 
* JSR COPY3 
LDA VOLUME BCS EXIT2 
STA VOLNR+1 
LDA SPUREN1 


STA SPURNR+1 


- 
* Okay-Exit nach Kopie 
* 
JSR ZLOADER 
JMP START1 


* 

* Slot/Drive in Unit-Number 

* packen 

* 
LDA OSLOT 
LDX ODRIVE 
JSR SLOTDRIV 
STA OUNIT 
LDA DSLOT 
LDX DDRIVE 
JSR SLOTDRIV 
STA DUNIT 


Zero-Page saven und loaden 


ZSAVER LDX #0 

ZSAVE LDA: $0000,X 
STA ZAREA,X 
LDA MARKER+1,X 
STA: $0000,X 
INX 
BNE ZSAVE 
RTS 


* 

A O O A O A O O O A O O O O O A O 
* 

* INIT-Routine aus PRODOS-FILER 
* der Firma Apple aufrufen: 

* 

* Entry mit A = Unit-Number 

* Exit mit A Fehler-Number 

* 

* Mit Block $0000 anfangen 

* 


* 
ZLOADER LDX #0 
ZLOAD LDA ZAREA,X 
STA: $0000,X 
INX 
BNE ZLOAD 
RTS 
* 
* Slot + Drive in Unit-Number 
* 
SLOTDRIV ASL 
ASL 
ASL 
ASL 
CPX #1 ;Drive 1 
BEQ SLOTDR 
ORA #%10000000 
SLOTDR RTS 
* 
* Spurprüfroutine patchen 
* 
PATCH LDA $C083 
LDA $C083 


LDA #0 

STA: RDBLOCK 

STA: RDBLOCK+1 

STA: WRBLOCK 

STA: WRBLOCK+1 
* 
* Block 0 von nicht-formatierter 
* Diskette lesen, um Lesekopf 
* Zu justieren 
* 

LDA #>PUFFBEGM 

STA: RDPUFF+1 

LDA DUNIT 

STA: RDUNIT 

JSR READER 
* 
* Falls Lesefehler auf Duplikat, 
* dann stets INIT, andernfalls 
* INIT ja, wenn INITFLAG = 1 
* INIT nein, wenn INITFLAG = 0 
* 


* 
LDA #$18 
STA $F809 
LDA #$90 
STA $F80A 
LDA #$04 
BCS INIT :Fehler STA $F80B 
LDA INITFLAG 
BEQ COPY2 


* 

* RAM-Disk abstellen 

* * 

* Duplikat formatieren 

* 

INIT LDA DUNIT 
JSR FORMAT 
STA ERROR 


BEQ COPY2 


LDA #$4C 

STA $FF18 

LDA +$3B 

STA $FF19 

LDA #$FF 

STA $FF1A 

* 

* Fehler-Exit 

* 

EXIT2 JSR ZLOADER 
JSR HOME 
JSR PRERR 
LDA #":" 
JSR PRINT 
LDA ERROR 
JSR HEXOUT 
LDA +$A0 
JSR PRINT 
JSR RDKEY 


LDA $C081 
LDA $C081 
RTS 

* 

MARKER NOP 

* 

* 

* 


In 2 Schüben je 70K kopieren 
$0800-$9A00 AUX 36.5K 
$1400-$9A00 MAIN 33.5K 
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* Kopierroutine in Zero-Page! ; INC WRPUFF+1 
INC WRBLOCK 
BNE WRHUNK3 
ORG $0000 å INC WRBLOCK+1 
* ; WRHUNK3 LDA WRPUFF+1 
* 2 mal 70K lesen und schreiben : CMP PUFFEND2 
* ; BCC WRHUNK2 
COPY3 JSR COPY4 E CLC 


BCS 


MAINRAM 


‚Fehler 


DEC 
BNE 
RTS 
* 
LAEUFE2 HEX 
PUFFEND2 HEX 
* 
* 70K lesen 
* 
COPY4 JSR 
LDA 
JSR 


LAEUFE2 
COPY3 


AUXRAM 
#>PUFFBEGA 
RDHUNK1 


BCS 


JSR 


MAINRAM 


MAINRAM 


;Fehler 


WRHUNK4 RTS 

* 

* Read-Block 

* 

READER JSR 

RDCOM HEX 
DA 
RTS 

* 

RDCOUNT HEX 

RDUNIT HEX 

RDPUFF HEX 

RDBLOCK HEX 


* 


* Write-Block 


* 


MLI 
80 
RDCOUNT 


LDA #>PUFFBEGM 00A2: 20 WRITER JSR MLI 

JSR RDHUNK1 0045: 81 WRCOM HEX 81 

BCS MAINRAM ;Fehler 00A6: A9 DA WRCOUNT 
00A8: 60 RTS 

70K schreiben . 

00A9: 03 WRCOUNT HEX 

JSR AUXRAM OOAA: EO WRUNIT HEX 

LDA #>PUFFBEGA OOAB: OO 16 WRPUFF HEX 

JSR WRHUNK1 OOAD: 00 00 WRBLOCK HEX 

BCS MAINRAM ;Fehler 1881 bytes 


JSR MAINRAM 

LDA #>PUFFBEGM PROPUN: SEHA 

JSR WRHUNK1 100 ON PEEK (3000) = 76 AND PEEK (3001) = 198 AND 
BCS MAINRAM :Fehler PEEK (3002) = 11 GOTO 110: PRINT CHR$ (4)"BLOAD 
RTS PRODOS.COPYOBJ" 

PRINT CHR$ (21): HOME : INVERSE : HTAB 14: PRINT 
"PRODOS.COPYA": HTAB 14: PRINT "U. STIEHL 84": 


Fuller für MLI-Zero-Page 
MLI benutzt $003A-$004F NORMAL : PRINT : PRINT 
0S = 6:0D = 1:DS = 6:DD = 2:5 = 35 
IF OS = DS AND OD = DD THEN PRINT "NUR FUER 2 
DRIVES!"; CHR$ (7): END 
HEX 0000000000000000 PRINT "ORIGINAL-SLOT: "OS;: HTAB 22: PRINT 


HEX 000000 
HEX 0000000000000000 


"DUPLIKAT-SLOT: "DS: PRINT "ORIGINAL-DRIVE:"0D;: 
HTAB 22: PRINT "DUPLIKAT-DRIVE: "DD 
Zwischen unteren und oberen 150 PRINT : HTAB 13: PRINT "SPURENANZAHL:"S 
47.5K $0200-$BFFF umschalten 160 PRINT : HTAB 14: PRINT "START J/N "; 
170 GET X$: ON X$ = "J" OR X$ = "j" GOTO 180: ON X$ < > 
AINRAM STA $C002 : RDMAIN "N" AND X$ < > "n" GOTO 170: HOME : END 
STA $C004 :WRMAIN 180 VTAB 8:: HTAB 11: CALL - 958: PRINT "DISKETTEN 
BCC MAINRAM1 EINLEGEN": PRINT : HTAB 14: PRINT "W = WEITER "; 
STA ERROR 190 GET X$: IF X$ < > "W" AND X$ < > "w" GOTO 190 
MAINRAM1 RTS 200 C = 3000: POKE C + 3,0S: POKE C + 4,0D: POKE C + 
* 5,DS: POKE C + 6,DD: POKE C + 7,S 
AUXRAM STA $C003 :RDAUX 210 B=S x 8: POKE C + 9, INT (B / 256): POKE C + 8,B - 
STA $C005 ; WRAUX PEEK (C + 9) * 256 
RTS 220 CALL C 
* 230 IF PEEK (C + 10) < > 0 THEN HOME : PRINT "FEHLER 
* Read "; CHR$ (7);: GET X$ 
ds ias 240 RUN 110 
* 
RDHUNK1 RDPUFF+1 QUICKCOPY. PUFFER 
RDHUNK2 READER 100 INPUT "Spuren:";S 
RDHUNK4 110 BG = 140: REM Blockanzahl 
RDPUFF+1 120 PE = 154: REM HH $9A00 
RDPUFF+1 130 * 8 
RDBLOCK 140 / BG: REM L=Läufe 
RDHUNK3 150 = INT (L) THEN 170 
RDBLOCK+1 160 INT (L) + 1 
RDHUNK3 RDPUFF+1 170 T = BG - INT (B / L) 
PUFFEND2 180 PE = 154 - T 
RDHUNK2 190 HOME : PRINT "Spuren:"S 
200 PRINT "Läufe:"L 
RDHUNK4 210 PRINT "Pufferende: "PE 
. 220 G = (PE * 256 - 5120 
* Write + PE * 256 - 2048) > L 
* ———— 230 PRINT "Gesamt:"G: 
+ PRINT "Kilobyte:"G / 1024 
WRHUNK1 WRPUFF+1 240 BL = G / 512: IF B > BL 
WRHUNK2 WRITER THEN GOTO 160 
WRHUNK4 250 PRINT "Blocks: "BL 
WRPUFF+1 260 PRINT "PuffergröBe:"G / L 


HEX 0000000000000000 





28 


QUICKCOPY Hex-Dump 


BSAVE QUICKCOPY, A2222, L1881 
Start mit BRUN QUICKCOPY 
Neustart mit CALL 2222 


$08A8: 00 00 00 00 
$08B0: 08 06 01 06 
$08B8: 02 9A 00 60 
$08C0: A2 00 BD DO 
$08C8: ED FD E8 DO 
$08D0: 2A 11 15 09 
$08D8: OF 10 19 2A 
$08E0: 14 09 05 
$08E8 : 8D D3 
$08FO: AF CE 
$08F8: 00 00 
$0900: 20 3A 
$0908: 18 60 
$0910: ac 21 
$0918: 27 AC 
$0920: 60 OA 
$0928: 8A 4A 
$0930: OD 20 
$0938: AA 29 
$0940: 23 OD 
$0948: BD 8A 
$0950: CO BD 
$0958: AQ 50 
$0960: 23 09 
$0968: OC 4C 
$0970: A9 AA 
$0978: 69 02 
$0980: A5 D1 
$0988: AE 23 
$0990: CO A8 
$0998: 98 10 
$09A0: 20 63 
$09A8: D4 CC 
$09B0: 4C F9 
$09B8: BO 05 
$09c0: 20 OD 
$09C8: 09 AD 
$09D0: 25 OD 
$09D8: 09 AE 
$09E0: EE A5 
$09E8: 20 07 
$09FO: D1 C9 
$09F8: AE 
$0A00: 20 
$0A08: FO 
$0A10: D5 
$0A18: FB 
$0A20: 8C 
$0A28: A9 
$0A30: 10 
$0A38: DO 
$0440: FB 
$0448: DO 
$0A50: 96 
$0A58: c9 
$0A60: 10 
$0A68: AO 
$0A70: DC 
$0A78: c9 
$0A80: 10 
$0A88: BD 
$0A90: E7 
$0A98: 10 
$OAAO: 

$OAAB: 

$OABO: 

$0AB8: 

$OACO: 

$0AC8: 

$0ADO : 

$0AD8: 

$0AEO : 

$OAE8: 

$0AFO: 

$0AF8: 

$0B00: 

$0B08: 

$0B10: 

$0B18: 
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PRODOS.COPYOBJ Hex-Dump 


BSAVE PRODOS.COPYOBJ, A3000, L1502 
Start mit BRUN PRODOS.COPYOBJ 
Neustart mit CALL 3000 


$0BB8: C6 OB 06 
$OBCO: 01 00 01 
$0BC8: A2 00 BD 
$0BDO: ED FD 
$0BD8: 10 12 
$0BEO: OF 10 
$0BES: 14 
$0BFO: 8D 
$0BF8: CA 
$0C00: 20 
$0C08: 18 
$0C10: 

$0C18: 

$0C20: 

$0C28: 

$0C30: 

$0C38: 

$0C40: 

$0C48: 

$0C50: 

$0C58: 

$0C60: 

$0C68: 

$0C70: 

$0C78: 

$0C80: 

$0C88: 

$0C90: 

$0C98: 

$0CA0: 

$0CA8: 

$0CBO: 

$0CB8: 

$0CCO: 

$0CC8: 

$0CDO : 

$0CD8: 

$0CEO: 

$0CE8: 

$0CFO: 

$0CF8: 

$0D00: 

$0D08: 

$0D10: 

$0D18: 

$0D20: 

$0D28: 

$0D30: 


a | Softbreaker 1.0 


$0D48: | Eine softwaremäßige Interrupt-Utility 
een | für die Apple Ile 64K-Karte 


$0D60 : 
$0D68: i von U. Stiehl 


$0D70: 1984, Diskette und Manual, DM 48,— 


$0D78: ISBN 3-7785-1022-3 
$0D80: 


$0D88: 
$0D90: 
$0D98: 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
$0DAO: 64K-Karte (= Extended 80 Column Card fur 
SODAS: den Apple Ile) starten lassen, unterbrochen, 
$0DBO: gespeichert, geladen und exakt an der Stelle 
$0DB8: ; der Unterbrechung fortgeführt werden kön- 
$oDco: : nen. Dadurch ist es auch möglich, Siche- 


a rungskopien von sogenannten kopierge- 


schützten Programmen herzustellen. 
$0DD8: i 
$ODEO: i Mit Softbreaker unterbrochene Programme 
$0DES: werden komplett, d. h. die ganzen 64K ein- 
$ODFO: schlieBlich Language Card, in nur ca. 11 Se- 


$0DF8: kunden auf einer formatierten Diskette gesi- 
$0E00: chert. 


nn | Gerätevoraussetzung: Apple lle mit 64K- 


$0E18: . Karte 


$0E20: : å å 
$0E28: | Hüthig Software Service, 


Postfach 10 28 69, D-6900 Heidelberg 
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ProDOS 
und „Kompatible“ 


Ein allgemeines Patch-Programm 
von Arne Schäpers 


Mit Hilfe der nachfolgenden Patch-Utility 
PRODOS.PATCH dürfte man ProDOS auf 
den meisten Kompatiblen zum Laufen 
bringen. Da der (neugeschriebene) Kom- 
mentar zu diesem Programm erst nach 
Redaktionsschluß einging, haben wir uns 
entschlossen, in diesem Heft entgegen 
unseren sonstigen Gepflogenheiten nur 
das nackte Programm abzudrucken, da 
bereits viele Besitzer auf eine solche Utili- 
ty, die über den F8-Kleinschreibumrüst- 
satz-Patch für Apple-Il-Plus-Geräte aus 
„Peeker“, Heft 1/84 hinausgeht, gewartet 
haben. 


Hinweis zum Programm 


1. Speichern Sie die Utility PRODOS.- 
PATCH, nachdem Sie diese eingegeben 
haben, auf einer DOS-Diskette. 

2. Erstellen Sie jetzt eine exakte Kopie der 
Original-USERS.DISK — ProDOS Version 
1.0.1 vom 1. Jan. 84 — mit Hilfe eines 
normalen DOS-Kopierprogramms, z.B. 
COPYA. 

3. Dann starten Sie das Programm PRO- 
DOS.PATCH von der DOS-Diskette. 
Wenn das Menü erscheint, legen Sie die 
Kopie der USERS.DISK in dasselbe Lauf- 
werk ein und drücken Sie nun eine beliebi- 
ge Taste. Der Patch-Vorgang ist nach we- 
nigen Sekunden abgeschlossen. 

4. Booten Sie nunmehr neu mit PR#6 o.ä. 


PRODOS . PATCH 


10 
20 
30 
40 
50 
60 
70 


80 

90 
100 
105 
110 
115 
120 
125 
130 
135 
199 
200 


205 
210 
220 


230 


240 
299 
300 


305 
310 
320 


330 
340 
399 
400 
405 
410 
420 


430 
440 
499 
500 
510 
520 
530 
540 
550 


560 
570 
580 
605 
610 
620 


630 
640 
650 
700 
710 
799 
800 
805 
810 


820 
830 
840 
842 
844 
846 
860 
899 
900 


905 
910 
920 


HIMEM: 8192: TEXT : HOME 
REM 
REM RWTS-Aufruf; setzt 767 <> 0 bei Fehler 


FOR X = 0 TO 9: READ A: POKE 768 + X,A: NEXT 
DATA 32,227,3,32,217,3,110,255,2,96 

REM 

IOB = 256 * PEEK (987) + 14 * 16 + 8: REM $B7E8 fiir 
48/64K 

BUFFER = 8192: REM $2000 

REM 

PRINT "Bitte 1:1 kopierte ProDOS 'USERS.DISK'" 
PRINT 

PRINT "in den Drive, von dem dieses Programm" 
PRINT 

PRINT "aus gestartet wurde, einlegen" 

PRINT 

PRINT "und <Return> drücken: "; 


INPUT "";X$: PRINT 


REM TEST FBCO 

IF PEEK (15 * 256 * 16 + 11 * 256 + 12 * 16) > 3 
THEN 300 

PRINT " — Patch auf $2055: JMP $2076": PRINT 
TRACK = 0:SECTR = 1:CMD = 1: GOSUB 800 

IF PEEK (BUF) < > 165 OR PEEK (BUF + 1) < > 67 
THEN 900 

POKE BUF + 85,76: POKE BUF + 86,118: POKE BUF + 
87,32 

CMD = 2: GOSUB 800: REM Zurtickschreiben 


REM TEST FBB3 

IF PEEK (15 * 256 * 16 + 11 * 256 + 11 * 16+ 3) = 
14 x 16 + 10 THEN 400 

PRINT " — Patch auf $23C3: BNE $23DA" 

TRACK = 1:SECTR = 12:CMD = 1: GOSUB 800 

IF PEEK (BUF) < > 168 OR PEEK (BUF + 1) < > 7 
THEN 900 

POKE BUF + 195,208: POKE BUF + 196,21 

CMD = 2: GOSUB 800: REM Zurückschreiben 

REM PATCH "Apple II" 

REM immer ausgeführt 

PRINT " — PATCH AUF $265B: SEC / NOP" 

TRACK = 1:SECTR = 9:CMD = 1: GOSUB 800 

IF PEEK (BUF) < > 169 OR PEEK (BUF + 1) < > 9 
GOTO 900 

POKE BUF + 91,56: POKE BUF + 92,234 

CMD = 2: GOSUB 800: REM zurück 

REM Test CXFF 

SL = PEEK (IOB + 1) / 16 

CXLOC = 12 * 16 * 256 + 256 * SL + 255 

IF PEEK (CX) = 0 GOTO 700 

PRINT " — Patch im Boot: $081D: LDA #$00" 

TR = 0:SEC = 0:CMD = 1: GOSUB 800 

IF PEEK (BUF) < > 1 OR PEEK (BUF + 1) < > 56 
GOTO 900 

POKE BUF + 29,169: POKE BUF + 30,0 

CMD = 1: GOSUB 800: REM zurück 

REM 

PRINT " — Patch im Relocator: $2507 LDA #$00" 
TRACK = 1:SECTR = 10:CMD = 1: GOSUB 800 

IF PEEK (BUF) < > 56 OR PEEK (BUF + 1) < > 208 
GOTO 900 


POKE BUF + 7,169: POKE BUF + 8,0 

CMD = 2: GOSUB 800 

REM 

PRINT : PRINT "Modifikationen beendet." 
END 

REM CALL RWTS: Daten auf $2000 


POKE IOB + 3,0: REM Volume Number 

POKE IOB + 8,0: POKE IOB + 9,BUF / 256 

POKE IOB + 4,TRACK: POKE IOB + 5,SECTR: POKE IOB + 
12, CMD 

POKE 767,0: CALL 768 

IF PEEK (767) = 0 THEN RETURN 

ERR = PEEK (IOB + 13) 

PRINT : PRINT CHR$ (7)"Fehler: "; 

IF ERR < > 16 THEN PRINT "I/O" 

IF ERR = 16 THEN PRINT "Write protected" 

END 

REM ERR Exit fUr Datenpriifung 

PRINT : PRINT CHR$ (7)"Fehler: nicht die erwarteten 
Daten" 

PRINT 

PRINT " auf der Diskette." 

END 
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Der FRE-Befehl ist die langsamste Funktion des Applesoft-Interpreters mit einer 
Ausführungszeit von oft mehreren Minuten. Dem disassemblierten Listing dieser 


sog. Garbage-Collection, von Microsoft „String Space Compaction“ genannt, 


(eigentlich: Müllabfuhr; in Basic: Beseitigung von nicht mehr benötigten Strings) 
wird eine auf dem BASIC.SYSTEM-FRE-Befehl basierende DOS-3.3-FRE-Version 
gegenübergestellt, die alle Rekorde schlägt und deshalb sprichwörtlich den 


String-Müll wie ein Blitz beseitigt. 


Harald Grumser 


4 UTILITIES 


Mullabfuhr wie ein Blitz 


Eine ultraschnelle Garbage-Collection-Routine 


1. Statische und dynamische 
Stringverwaltung 


Fast alle problemorientierten Program- 
miersprachen verfugen uber eine mehr 
oder weniger groBe Anzahl von Befehlen 
zur Verwaltung von Strings (= Zeichen- 
ketten). Hinsichtlich der Verwaltung von 
Stringvariablen lassen sich zwei Arten un- 
terscheiden: statische Verwaltung von 
Strings mit konstanter Lange und dynami- 
sche Verwaltung von Strings mit variabler 


Lange. Im folgenden soll kurz auf die Un- 
terschiede dieser Verfahren eingegangen 
und ein Aspekt der dynamischen String- 
verwaltung, die Garbage-Collection (G/C), 
naher beleuchtet werden. 


In den meisten Programmiersprachen wird 
zur Verwaltung von Stringvariablen ein 
statisches Verfahren angewandt. Dabei 
muß der Benutzer jeden String zunächst 
bezüglich seiner Länge definieren, was 
normalerweise am Anfang des Programms 


o 





geschieht. Der Rechner ist dann in der 
Lage, jeder Stringvariablen einen ihrer 
Länge entsprechenden Speicherbereich 
zuzuordnen. In der Variablenreferenzliste 
(Variablenliste, Variablentabelle, VARTAB) 
wird dann statt des eigentlichen Strings 
dessen Adresse im Speicher und seine 
Länge abgelegt. Erfolgt nun eine Zuwei- 
sung, so wird die Zeichenkette in den ent- 
sprechenden Stringbereich übertragen 
und die Länge im Deskriptor (= Stringbe- 
schreiber) der Variablenliste aktualisiert. 
Hier zeigt sich ein entscheidender Nach- 
teil dieses Verfahrens. Abgesehen vom 
Mehraufwand des Programmierers, der je- 
de einzelne Stringvariable deklarieren 
muß, wird die Stringlänge ein einziges Mal 
festgelegt und kann danach nicht mehr 
geändert werden. Um nun allen Eventuali- 
täten während des Programmlaufs vorzu- 
beugen, ist man gezwungen, die einzel- 
nen Stringlängen so groß wie möglich 
festzulegen, was zu einer enorm ineffi- 
zienten Speicherausnutzung führt. Da der 
Implementierungsaufwand dieses Verfah- 
rens — gemessen an der dynamischen 
Stringverwaltung — bedeutend geringer ist, 
hat sie u.a auch im Integer-Basic des Ap- 
ple Il Anwendung gefunden. 


Die dynamische Handhabung von String- 
variablen offenbart sich dem Anwender in 
erster Linie durch den Wegfall der Langen- 
deklaration. Wird die Variable zum ersten 
Mal benutzt, so erfolgt auch hier ein Ein- 
trag im entsprechenden Deskriptor, und 
die Zeichenkette selbst wird in der Regel 
oberhalb des freien Speicherbereichs ab- 
gelegt. Bei einer erneuten Zuweisung wird 
der neue String unter die bereits vorhan- 
denen geschrieben und der Deskriptor 
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entsprechend geändert. Erscheint also in 
einem Programm zunächst die Anweisung 
A$ = „OTTO“ und später die Zuordnung 
A$ = „FRITZ“, so steht sowohl „FRITZ“ 
als auch „OTTO“ im Speicher, obwohl 
„OTTO“ jetzt nicht mehr benötigt wird, 
also Garbage = Müll darstellt. „OTTO“ ist 
damit eine Stringleiche, die nur dazu ge- 
eignet ist, den verfügbaren Speicherraum 
zu schmälern. Im Laufe der Zeit würden 
sich immer mehr solcher Stringleichen an- 
sammeln, und der Rechner müßte sich 
wohl dann mit der Meldung „OUT OF ME- 
MORY“ verabschieden, gäbe es nicht die 
Garbage-Collection oder Beseitigung der 
Stringleichen. 


Bei der Garbage-Collection werden alle 
noch aktuellen Strings soweit wie möglich 
nach oben verschoben, d.h. alle (passi- 
ven) Stringleichen werden entfernt und die 
verbleibenden (aktiven) Strings ab HI- 
MEM, d.h. ab der Speicherobergrenze, 
abwärts zusammengepackt. 


Der Applesoft-Interpreter führt diese G/C 
immer dann aus, wenn kein Speicherplatz 
mehr zur Verfügung steht. Durch Benut- 
zung der FRE-Funktion, die die Anzahl 
noch verbleibender freier Speicherstellen 
ermittelt, kann man diese G/C auch er- 
zwingen, etwa durch | = FRE (0). Eine 
weitere Möglichkeit besteht im direkten 
Aufruf der G/C im Applesoft-Interpreter 
durch CALL 58500 oder CALL -7036 (ent- 
spricht $E484). 


2. Die Stringvariablentabelle 


Zum Verständnis der hier vorgestellten 
Programme ist die Kenntnis der Variablen- 
verwaltung des Applesoft-Interpreters 
wichtig. Es empfiehlt sich in diesem Zu- 
sammenhang die Lektüre der Applesoft- 
Basic-Programmieranleitung, aus der hier 
noch einmal kurz zusammengefaßt wer- 
den soll. Beim Programmlauf legt der In- 
terpreter direkt hinter dem Programm die 
Variablentabelle an, wobei zuerst alle ein- 
fachen Variablen und dann alle indizierten 
oder dimensionierten (Feld-)Variablen fol- 
gen. Es dürfte bekannt sein, daß nur die 
ersten beiden Buchstaben des Variablen- 
namens signifikant sind, d.h. XMIN und 
XMAX werden nicht unterschieden. Somit 
enthält jeder Variableneintrag zunächst 
zwei Namensbytes. Bit 7 jedes dieser bei- 
den Bytes wird zur Unterscheidung des 
Variablentyps benutzt (Integer, Real, 
String). Stringvariablen werden durch Bit 7 
= 1 = onim ersten sowie Bit 7 = 0 = off 
im zweiten Byte gekennzeichnet. Bei den 
einfachen Variablen folgen nun noch je 5 
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MEMSIZE (115 -$73) 


FRETOP (111-$6F). 


STREND (109-$6D) 


(107-$6B) 


ARYTAB 
VARTAB (105-$69) 


TEXTTAB (103 - $67) 


DOS- 
Puffer 


i.a. $9600 
String- 
bereich 


freier 
Bereich 


Feld- 
variablen 


normale 
Variablen 


Applesoft- 
programm 


i.a. $801 


Bildschirm- 
Puffer 


Die Zahlen in Klammern geben die dezimale und hexadezimale Pointeradresse an 





Diagramm 1: Auszug aus der Speicherbelegung 











version 


48K- 
version 






Applesoft- 
version 


Genauigkeit +/- 5% (ungeeichte Zeitbasis) 


Diagramm 2: Laufzeittabelle 


Bytes, die den Wert beinhalten. Im Falle 
von Strings werden indessen nur die er- 
sten 3 der 5 Bytes als Deskriptor genutzt. 
Feldvariablen (= dimensionierte Varia- 
blen) enthalten einige Einträge mehr. Auch 
hier erscheinen zuerst zwei Namensbytes, 
gefolgt von einer 2-Byte-Offsetadresse 
zum nächsten Feld, danach die Anzahl der 
Dimensionen (1 Byte), gefolgt von je 2 
Bytes zur Bestimmung der Größe der ein- 
zelnen Dimensionen. Im Anschluß daran 
erscheinen die Werte der einzelnen Ele- 
mente, bei Strings wieder in Form von 


Zeit in sec 


Deskriptoren. Eine kleine Lehre läßt sich 
aus diesen Erkenntnissen ziehen: Bei der 
Bearbeitung großer Felder erweist es sich 
als sinnvoll, alle einfachen Variablen vor 
der Dimensionierung des Feldes zu be- 
nennen, da ansonsten bei jeder neuen 
einfachen Variablen der gesamte Feld- 
block nach oben verschoben wird. 

Der Applesoft-Interpreter richtet sich für 
seine Verwaltungstätigkeit Pointer in der 
Zero-Page ein, die in Diagramm 1 veran- 
schaulicht sind. Dabei entsprechen LO- 
MEM und HIMEM den Default-Werten. 


IBM®-Gehause 


ZUSATZ-KARTEN: 


V-24-Schnittstelle 199,- Z-80-Karte 


80-Zeichen-Karte m.Softswitch 236,- 16 K-Language-Karte 
Centronics-Karte von Epson 
Eprommer incl. Software 


für Graphik . . . . 210,- für Text . . . . 145,- 


Floppy-Controler 


FDC 4 für alle Laufwerke 230,- Bausatz wie links 

Leerplatine wie oben incl. Prom u. Eprom 

Autopatch-Controler 1 x 35 bis 2 x 80 Tr.-Disk, keine Patch-Disk notwendig, 
Gemischtbetrieb möglich (auch für SONY 3⁄2” Laufwerke) 


Netzteil 5A 


Preh Commander Keyboards wir bieten Ihnen die Preh-Quali- 
tät auch für Apple. AK 88 spez. mit Gehäuse, Anschlußkabel, Zehner-Tastenfeld, 
dt. Zeichensatz, Sondertasten für Ctrl-Codes und Rechenfunktionen .... 339,- 


TEAC FD 55 A 1 x 40 Track 550,- TEAC FD 55 B 2 x 40 Track 
TEAC FD 55 E 1 x 80 Track 595,- TEAC FD 55 F 2 x 80 Track 


Patch-Diskette für SONY 3%" Laufwerke — ermöglicht die Anpassung an ll/lle und 
kompatible Computer 80,- Manual vorab 15,-DM (wird beim Kauf 
der Patch-Diskette angerechnet). dto. für 51⁄4" Laufwerke 80,- 
Disketten Döb&Böd SS/DD 10St. 62,- 10 Disketten f.Sony 31⁄2” Laufw. . 150,- 


SONY 3%" Laufwerk .. nur 849,- 


10 MB Winchester incl. Controler, 
Software, Gehäuse 


Akustikkoppler AK 300 mit FTZ-Nr. 
incl. Netzteil 


Die Microfloppy mit Zukunft: (o.Abb.) 
Speicherkapazitat: 2 x 1 MByte for- 
matiert: 2 x 640 kByte. AnschluBfertig 
mit PROM-residenter Patchsoftware 
fur CP/M 2.2, Apple DOS 3.3 und 
Apple Pascal 1.1, Pro-DOS 

zum Preis von 


Gesamt-Preisliste anfordern! Bitte beachten Sie auch unsere Anzeige in Nr. 2/84 


Ueding electronics 


Holtewiese 2 DFU 02373/66877 
5750 Menden 1 Tel. 02373/63159 





Nutzen Sie Ihren Apple-Computer 
auch zum Lernen 


INTUS-Lernprogramme sind attraktiv und motivierend für vergnügliches 
Lernen mit hohem Lernerfolg. 
Alle Programme in deutscher Sprache für Apple Ile und llc. 


@ Maschinenschreiben wie der Blitz. Didaktisch 
ausgezeichnet. Garantiert erfolgreich in 20 Lektionen. 


O Basic-Lernprogramm. Bestes Lernprogramm 1982 
in USA. 


DM 188,— 


DM 295,— 
O Computer-Simulator. Mit Lehrgang in 5 Lektionen. DM 146,— 
O Lesen wie der Blitz. Sehr wirkungsvolles Lesetraining. DM 115,— 


O Deutsche Grammatik mit Spaß. Für Sekretärinnen, Schüler und 
“Jedermann”. Beste Beurteilungen durch Verwender. 
O Rechtschreibetraining mit Vortest/Nachtest, 
5 Bereiche, 4 Disk. 
O Zeichensetzung, Wortarten, Verb, Zeitenfolge, 
Adjektive/Adverbien, Fálle, Satzglieder, 
7 Disk. (weitere folgen) 


O Wortschatztrainer, Franz./Deutsch, 800 Wórter 
Englisch/Deutsch, 800 Wórter 
Business English, 1200 Wórter 
@ Unternehmens-Planspiel “Kartellbrüder und 
Halsabschneider”. Professionelles, lehrreiches 
Strategiespiel. Vorkenntnisse notwendig. 
Umfangreiche Dok. DM 495,— 
@ Schulprogramme wie Rechnen/Mathe, Sprachen, Physik, Chemie, 
Informatik, Vorschule. Bestens für die Nachhilfe geeignet. 
Vermietung von Programmen. 
*%*%% Mit Ihrer ersten Bestellung erhalten Sie gratis das Programm 
“Mein Freund der Apple” mit interessanten Denk-Strategie- 
und Entspannungsspielen. 


A 
INTUS LERN-SYSTEME AG 


Kaiserstraße 21 - 7890 Waldshut-Tiengen : Telefon 07751-7920 


je Disk. DM 165,— 


je Disk. DM 165,— 
DM 140,— 
DM 140,— 
DM 163,— 
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= mi Bestechende Leistung! 
P AP 20: 6800 CPU mit 128K RAM 
y Y AP 20 mit Assembler und Pseudodisk DM 1595,— cjo cjo 
AP 20 mit CP/M 68K DM 2268,— 
V V AP 26-A-256K RAM fiir AP 20 DM 1695,— y V 
AP 26-B-1 Megabyte fiir AP 20 DM 6450,— 
AP 20 + AP26 + CP/M 68K DM 3642,— 


CP/M 68K mit C-Compiler 
Fortran, Pascal, Basic u.a. 


Ein Textsystem wie im Film mit: 
AP 17 256K RAM als 


DM 1356,— Diese Kombination bestimmt Ihre 
auf Anfrage Computerzukunft: 


Pseudodisk > A 16K RAM Karte DM 165,— 
Basic, Pascal, CP/M DM 1690,— Disketten mit 80Z Karte mit Softswitch DM 295,— 
AP 22 Z80B CPU 6 MHz Z80A Karte DM 165,— 


Innenlochverstárkung ss, sd 
10er Pack DM 55,— 
100er Pack DM 500, — 


133 COMPUTETLECKNIT Olper Str. 10 1011 Rose Marie Lane 16 


4800 Bielefeld 14 Stockton. CA 95207 
Tel. 0521/444032 Tel. (209) 473-7473 
West-Germany USA 


mit64k RAM DM 895,— 
Das Textprogramm 
Wordstar 


zusammen nur 
alle Preise incl. MWSt. 


DM 595,— 
DM 1310, — 





cvb computer 


RepsoldstraBe 49, 2000 Hamburg], Tel O40-230685 


Komplettsystem SUPER II 


+ 48 KB Mikrocomputer, Kleinschreibung, deutsche Tastatur, 
zehnerblock, Auto-Repeat, APPLE kompatibel, 8 Slots 

+ 16 KB Erweiterung auf 64 KB Hauptspeicher (Sprachkarte), 
PASCAL-, VISICALC- und CP/M-kompatibel, busgepuffert 

+ 5.25"-Diskettenlaufwerk TEAC FD 55-A, voll kompatibel 
zu APPLE-Laufwerken, 143 KB, mit Controller-Karte 

+ 12"-Datenmonitor SANYO DM 2112 Cx, grüner Bildschirm, 
15 MHz Auflösung, geätzte Bildröhre 


DM 2450.00 


anschlußfertig 


+ TEAC 5.25"-Laufwerk FD 55-A 

+ Z 80-Mikroprozessorkarte 

+ 80 Zeichen-Superkarte VIDEX 
kompatibel, deutscher und 
ASCII-Zeichensatz, Grafik, 
Softswitches, busgepuffert 


DM 1100.00 
SPEEDY 100 


80 cps Matrixdrucker A4, 
Einzelblatt und Traktor, 
Grafik, EPSON-kompatibel 
Centronics Parallel 


DM: 799.00 


TEACG: 55-F 


Doppellaufwerk 2x 640 KB 
mit Gehåuse, Controller, 
Kabel und Software, 

anschlußfertig für Äpfel 


DM 2198.00 
JUKI 6100 


Profi-Typenraddrucker A4 
quer, 22 cps, 2K Puffer, 
WordStar kompatibel, 
Centronics Parallel 


DM 1699.00 


Apple . NCR-Epson-JUKI-Speedy-C.ltoh: NEC -Olympia:-Sanyo 

Taxan Teac Verbatim -Scotch 3M- M+T-Zubehör-Bücher 
Barpreise incl. Mehrwertsteuer: volle Garantie 
Abholung oder Versand-Infoheft anfordern 
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3. Die Interpreter-Garbage- 
Collection 


Zum Verständnis der im Applesoft-Inter- 
preter eingebauten G/C-Routine bedarf es 
einiger Erläuterungen. Die Block-Transfer- 
Utillity ist eine universelle Blockverschie- 
beroutine, die immer dann aufgerufen 
wird, wenn ein bestimmter Speicherbe- 
reich (LOWTR-HIGHTR) verschoben wer- 
den muß. Dabei wird das Ende des Zielbe- 
reichs (HIGHDS) als Parameter überge- 
ben. Diese Routine ist nicht geeignet für 
Verschiebungen nach unten mit Über- 
schneidungen von Ziel- und Quellbereich. 
Der Deskriptorenstack ist ein kurzer Spei- 
cherbereich in der Zero-Page (9 Bytes), in 
dem bei verschiedenen Stringoperatio- 
nen, wie z.B. LEFT$, und Stringkonkate- 
nationen (Stringverkettungen, z.B. A$ + 
B$) Deskriptoren vorübergehend abgelegt 
werden. Da die G/C zu jeder Zeit aufgeru- 
fen werden kann, müssen auch diese Zei- 
chenketten mit berücksichtigt werden. 

Bei dem hier angewandten Algorithmus 
wird in einer großen Schleife bei jedem 
Durchgang der bisher noch nicht berück- 
sichtigte String mit der höchsten Adresse 
ermittelt, und dann unter die bereits bear- 
beiteten Zeichenketten geschrieben. So- 
mit werden alle Strings, von oben nach 
unten, neu abgelegt und die entsprechen- 
den Deskriptoren in der Variablenliste ak- 
tualisiert. Bei der Suche nach dem höch- 
sten String, dem Top-String, wird folgen- 
dermaßen verfahren: Zunächst befinden 
sich alle potentiellen Top-Strings zwi- 
schen STREND und FRETOP, d.h. zwi- 
schen der unteren Grenze des zur Verfü- 
gung stehenden Stringbereichs und dem 
zuletzt aktualisierten Top-String. Bei der 
Durchforstung aller Variablen, wobei die 
numerischen Variablen natürlich ignoriert 
werden, rückt die Untergrenze dieses Be- 
reichs durch den zuletzt gefundenen Top- 
String immer weiter nach oben. Dabei fun- 
giert LOWTR als Untergrenze, TOPSTR 
als Zeiger auf den letzthöchsten Eintrag 
und INDEX als Laufvariable innerhalb der 
Variablenliste. Am Ende aller Variablen 
steht somit der höchste String fest und 
kann übernommen werden. Dies wird so- 
lange wiederholt, bis kein Top-String mehr 
gefunden wird und somit alle Strings ver- 
schoben sind. Die Variable TOPSTR wird 
dabei am Schleifenkopf als Flag auf Null 
gesetzt; wurde kein Top-String mehr an- 
getroffen, so bleibt sie als Abruchkriterium 
zurückgesetzt. 


Das besondere Merkmal dieses Pro- 
gramms ist der Verzicht auf die Benutzung 
weiterer Speicherplätze. Einerseits ist der 
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APPLESOFT.FRE 


E484: 
E486: 
E488: 
E48A: 
E48C: 
E48E: 
E490: 
E492: 
E494: 
E496: 


E498: 
E49A: 
E49C: 
E49E: 
E4A0: 
E4A2: 
E4A4: 
E4A7: 


E4A9: 
E4AB: 
E4AD: 
E4AF : 
E4B1: 
E4B3: 
E4B5: 
E4B7 : 
E4B9: 
E4BB: 
E4BD: 
E4CO: 


E4C2: 
E4C4: 
E4C6: 
E4C8: 
E4CA: 
E4CC: 
E4CE: 
E4DO: 
E4D2: 
E4D4: 
E4D6 : 
E4D9: 
E4DB: 
E4DD: 
E4DF: 
E4E1: 
E4E2: 


85 


A9 
85 
AS 
AG 
E4 
DO 


DO 
4C 


86 
AO 
Bl 
AA 
C8 


ES 


ES 


ES 








A ——_—_ —_— __— __— —_—_ ->—____ ________ ________ __—__ 

* * 

* GARBAGE-COLLECTION-Routine im Applesoft-Interpreter xk 

* * 

* $E484-$E596 * 

* 1 * 

TEMPPT EQU $52 ;Pointer für Deskriptorenstack 

DSCSTK EQU $55 :Deskriptorenstack (3 * 3 Bytes) 

INDEX EQU $5E ;Suchpointer 

VARTAB EQU $69 :Start der Variablen = LOMEM 

ARYTAB EQU $6B ;Start der Feldvariablen 

STREND EQU $6D ;Ende der numerischen Variablen 

FRETOP EQU $6F :Ende der Stringvariablen 

MEMSIZE EQU $73 ;= HIMEM 

TOPSTR EQU $8A ;Pointer zum letzten Stringdeskr. 

VARLEN EQU $8F :Anzahl von Variablenbytes 

LSTLEN EQU $91 ;Zwischenspeicher ftir VARLEN 

ARYPNT EQU $94 :Pointer innerhalb der Feldv. 

¡Parameter fúr Block-Transfer 

HIGHDS EQU $94 :Zielbereich, Ende 

HIGHTR EQU $96 ;Quellbereich, Ende 

LOWTR EQU $9B :Quellbereich, Start 

BLTRUl EQU $D39A :Block-Transfer-Utility (Entry) 
ORG $E484 


* Beim Aufruf 


GARBAG 


GBLOOP 


LDX 
LDA 
STX 
STA 
LDY 
STY 
LDA 
LDX 
STA 
STX 


von GARBAG muß VARLEN auf 3 gesetzt sein 


MEMSIZE ;bei HIMEM beginnen 
MEMSIZE+1 

FRETOP ;FRETOP aktualisieren 
FRETOP+1 

+$0 :Variablenindex 

TOPSTR+1 ;0 als Flag 

STREND ‚maximal kleinste Adresse 
STREND+1 ; für Stringvariable 
LOWTR ; als zuletzt geänderten 
LOWTR+1 ; String eintragen 


* Deskriptorenstack bearbeiten 


DESCSTCK 


LDA 
LDX 
STA 
STX 
CMP 
BEQ 
JSR 
BEQ 


#<DSCSTK ;Deskriptorstack mit- 
#>DSCSTK ; berücksichtigen 

INDEX ;Suchpointer auf ersten 
INDEX+1 ; Stringdeskriptor 

TEMPPT ;Deskriptorstack beendet ? 
NORVAR ; ja, dann weiter 

SETTOP1 ;prüfen, ob neuer Top-String 
DESCSTCK ‚unbedingt 


* Normale Variablen bearbeiten 


NORVAR 


NORVAR1 


NORVAR2 


LDA 
STA 
LDA 
LDX 
STA 
STX 
CPX 
BNE 
CMP 
BEQ 
JSR 
BEQ 


#7 ;7 Bytes pro Variableneintrag 
VARLEN ; in Var.-Referenzliste 
VARTAB ;Suchpointer auf erste 
VARTAB+1 ; normale Variable 

INDEX 

INDEX+1 

ARYTAB+1 ;Feldvariablen erreicht ? 
NORVAR2 ; nein, dann weiter 

ARYTAB ; LSB prüfen 

ARYVAR ; ja, dann zu den Feldvariablen 
SETTOP ;prüfen, ob neuer Top-String 
NORVAR1 ‚unbedingt 


* Feldvariablen bearbeiten 


ARYVAR 


ARYLOOP 


ARYLOOP1 


ARYVAR1 


STA 
STX 
LDA 
STA 
LDA 
LDX 
CPX 
BNE 
CMP 
BNE 
JMP 
STA 
STX 
LDY 
LDA 
TAX 
INY 


ARYPNT ;Feldpointer auf 
ARYPNT+1 ; erstes Feld 
#3 :3 Bytes pro Eintag in der 


VARLEN ; Feldvariablenreferenzliste 
ARYPNT 
ARYPNT+1 
STREND+1 :Letztes Feld erreicht ? 
ARYVAR1 ; nein, dann weiter 
STREND ; LSB prüfen 
ARYVAR1 ; nein, dann weiter 
MVESTR ; ja, dann Top-St. eintragen 
INDEX ‚Index auf erstes 
INDEX+1 ; Feldelement 
+$0 :Feldindex 
(INDEX),Y ;1. Feldnamenbyte 
> => X 





Algorithmus relativ unkompliziert, was sich 
in der kurzen Code-Länge widerspiegelt. 
Andererseits ist die Laufzeit sehr beträcht- 
lich, zumal sie in Abhängigkeit von der 
Anzahl der Stringvariablen etwa quadra- 
tisch steigt, da zur Bearbeitung von n Va- 
riablen n-mal alle n Strings untersucht 
werden müssen. Es ist somit nicht ver- 
wunderlich, wenn sich der Apple bei Bear- 
beitung von großen Stringfeldern in minu- 
tenlanges Schweigen hüllt, was beson- 
ders bei interaktiven Programmen ein mitt- 
leres Ärgernis darstellt. 


4. Die neue Garbage-Collection: 
LC.FRE und RAM.FRE 


All denen, die auf eine schnelle Garbage- 
Collection Wert legen, ist das nun folgen- 
de Programm LC.FRE gewidmet. Das 
neue Diskettenbetriebssystem ProDOS 
bzw. genauer gesagt das Modul BASIC- 
‚SYSTEM ist in der Lage, Variablen abzu- 
speichern. Um die Diskette nicht mit unöti- 
gen Stringleichen zu füllen, wird vor Ab- 
speicherung von Stringvariablen eine G/C 
durchgeführt. Sehr wohl um die Problema- 
tik der Applesoft-G/C wissend, haben die 
Programmierer von ProDOS eine eigene 
Routine implementiert, die bedeutend 
schneller läuft. Die Geschwindigkeitserhö- 
hung wurde durch die Einrichtung eines 
Puffers erreicht, der den gesamten freien 
Bereich zwischen Variablen und Strings 
umspannt. Stehen dort weniger als 4 Sei- 
ten zur Verfügung, so wird auf die PRO- 
DOS-I/O-Puffer zurückgegriffen. 

Dieses Programm läßt sich nun mit einigen 
Modifikationen auch unter dem alten DOS 
ausnutzen. Um den freien Speicherplatz 
nicht zu belasten, residiert das Programm 
in der Language-Card Bank 1 (die von 
einem ggf. in die LC gemovten DOS 3.3 
belegte Bank 2 bleibt unberührt). Der Puf- 
fer wird, um Schwierigkeiten mit eventuell 
geöffneten Files und den HGR-Puffern zu 
vermeiden, ebenfalls in die Bank 1 verlegt, 
was auch einen beim PRODOS-FRE-Be- 
fehl möglicherweise auftretenden Fehler 
(OUT OF MEMORY) vermeidet, zumal 14 
Seiten Buffer (ca. 3,5K) bei einer großen 
Anzahl von Strings auch nicht mehr im 
freien Bereich vorhanden wären. (Das BA- 
SIC.SYSTEM bricht exakt dann zusam- 
men, wenn der momentan stringfreie 
Speicherraum beim Eröffnen eines Text- 
files weniger als 1280 Bytes, d.h. weniger 
als 5 Pages, beträgt, so daß HIMEM theo- 
retisch sicherheitshalber stets bei $9100 
liegen müßte. Anm. d. Red.) 


Der Programmablauf sieht etwa folgender- 
maßen aus: Zunächst wird der obere Be- 


5E 
35 


5E 
30 


SE 
2B 


8B 


91 
04 


91 


E5 


ARYVAR2 
ARYLOP2 


BEQ 
ARYLOP21 JSR 
BEQ 


* Prüfen, ob 


SETTOP 


SETTOP1 


SETTOP2 


BCC 





( INDEX) , Y 


(INDEX), Y 


(INDEX), Y 
ARYPNT+1 
ARYPNT+1 


ARYLOOP 
ARYLOOP 


(INDEX), Y 
+$0 


#5 
INDEX 
INDEX 
ARYVAR2 
INDEX+1 
INDEX+1 
ARYPNT+1 
ARYLOP21 
ARYPNT 
ARYLOOP1 
SETTOP1 
ARYLOP2 


UTILITIES 





;2. Feldnamenbyte 
;Minusflag retten 


‚OffsetLSB zum nächsten Feld 
;Feldpointer auf nächstes 
; Feld setzen 


;OffsetMSB zum nåchsten Feld 
;Minusflag holen 

;Bit7 = 0, d.h. kein String 
;Bit7 = 1, d.h. kein String 
‚Anzahl von Dimensionen 


;2 Bytes pro Dimension 
; + 5 Bytes überspringen 


;LSB -> A 


‚MSB -> X 
;Ende des Feldes erreicht ? 
; nein, dann weiter 


; Ja, dann nächstes Feld 
;prüfen, ob neuer Top-String 
‚unbedingt 


neuer Top-String vorliegt 


(INDEX), Y 
NXTVAR 


(INDEX), Y 
NXTVAR 


(INDEX), Y 
NXTVAR 


(INDEX), Y 


(INDEX), Y 
FRETOP+1 
SETTOP2 
NXTVAR 
FRETOP 
NXTVAR 
LOWTR+1 
NXTVAR 
TOPFND 
LOWTR 
NXTVAR 


;1. Namensbyte 
;Bit7 = 1, d.h. kein String 


;2. Namensbyte 
;Bit7 = 0, d.h. kein String 


;Stringlånge 
;wenn 0, dann ubergehen 


;Stringadresse LSB -> X 


;Stringadresse MSB -> A 
‚größer als FRETOP ? 

; nein, dann weiter 

; Ja, dann bereits erledigt 
;LSB prüfen 

;größer, d.h. erledigt 
;gröBer als letzter String ? 
; nein, dann übergehen 

; ja, dann Top-String 

;LSB überprüfen 

;kleiner, d.h. erledigt 


* als Top-String eintragen; INDEX auf nächste Variable 


TOPFND STX 
STA 
LDA 
LDX 
STA 
STX 
LDA 
STA 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
LDX 
LDY 
RTS 


NXTVAR 


NXTVAR1 


* Top-String verschieben, 


MVESTR LDX 
BEQ 
LDA 
AND 
LSR 
TAY 
STA 


LOWTR 
LOWTR+1 
INDEX 
INDEX+1 
TOPSTR 
TOPSTR+1 
VARLEN 
LSTLEN 
VARLEN 


INDEX 
INDEX 
NXTVAR1 
INDEX+1 
INDEX+1 
+$0 


TOPSTR+1 
NXTVAR1 
LSTLEN 


+400000100 ; 


LSTLEN 


;neue Stringadresse eintragen 


;und derzeitigen 
; Stringpointer als neuen 
; Top-String eintragen 


;Variablenlånge retten 


;Suchpointer auf nåchste 
; Variable setzen 


:LSB -> A 


;MSB -> X 
‚Variablenindex 


falls gefunden 


;0 ?, d.h. kein Top-String 

; gefunden -> ENDE 
;Variablenlånge des T.-Strings 
aus 7 wird 2 

; aus 3 wird 0 

;als Index 

;merken 


37 





reich der Strings in den Puffer übertragen, 
und dann werden alle Variablen, die in 
diesem Puffer liegen, nach oben verscho- 
ben, wobei die Reihenfolge hierbei keine 
Rolle spielt, da auschließlich gepufferte 
Strings überschrieben werden. Im An- 
schluß daran wird der nächste Teil der 
Strings gepuffert und analog verfahren, bis 
auf diese Weise alle String bearbeitet wur- 
den. Eine Verfeinerung dieses Verfahrens 
ergibt sich durch die Ausnutzung der 
durch die G/C bereits gewonnenen Sei- 
ten, die nicht gepuffert werden müssen 
und dennoch im gleichen Zug verarbeitet 
werden können. Dies führt zur Unterschei- 
dung eines gepufferten Bereichs, der bis 
auf den letzten Durchgang stets die glei- 
che Länge besitzt, und eines Savebe- 
reichs, der durch den Speicherplatzgewinn 
immer größer wird. Der Algorithmus gilt als 
beendet, wenn der Savebereich die Unter- 
grenze des alten FRETOP-Wertes erreicht 
hat. 


Dem Programm ist ein Initialisierungteil 
und eine Treiberroutine vorangestellt, um 
es direkt von der Diskette BRUNen zu 
können, ohne selbst Umschaltungen vor- 
nehmen zu müssen. Die Treiberroutine, 
die in die Page 3 ab $0300 (dezimal 768) 
verschoben wird, enthält noch eine kleine 
Zusatzoption. In der Speicherstelle FREe- 
PaGES ($00E3 = dezimal 227) kann die 
Anzahl der gewünschten freien Seiten im 
Bereich 1-255 übergeben werden. Sind 
diese vor der G/C noch vorhanden, so wird 
sie nicht ausgeführt. Auf die Benutzung 
des Ampersandvektors wurde zugunsten 
anderer Erweiterungen verzichtet, der Pro- 
grammaufruf lautet somit CALL 768: 


Die Garbage-Collection wird erzwungen 
mit: 

POKE 227, 255 

CALL 768 


Dagegen erfolgt die Garbage-Collection 
nach z.B. 

POKE 227, 3 

CALL 768 

nur dann, wenn z.Zt. des Aufrufs weniger 
als 3 Pages = weniger als 768 Bytes im 
Stringpool frei sind. 


Eine Besonderheit des Programms ist die 
ausschließliche Bearbeitung von ganzen 
Seiten. Dies führt zwar am Start und am 
Ende zu kleineren Redundanzen, erspart 
jedoch die ständige Überprüfung des Low 
Bytes, was eine Erhöhung der Geschwin- 
digkeit und zugleich ein kürzeres Pro- 
gramm bedingt. 
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E594: 4C 


275 bytes 


LC.FRE 


95 
95 


8A 
88 


E4 


CO 
CO 


91 
CO 


90 
03 


QOMØSIDANAUNKE 


(TOPSTR),Y ;Länge des Top-Strings 


LOWTR 
HIGHTR 
LOWTR+1 
+$0 
HIGHTR+1 
FRETOP 
FRETOP+1 
HIGHDS 
HIGHDS+1 
BLTRU1 
LSTLEN 


HIGHDS 


(TOPSTR),Y ; 


HIGHDS+1 
HIGHDS+1 


(TOPSTR), Y 


GBLOOP 


; zum Quellbereichsstart 
; ergibt 
; Quellbereichsende 


:FRETOP = Zielbereichsende 


;String verschieben 
‚Index wieder herstellen 
‚neue Adresse in 

; Variable (Deskriptor) 
eintragen 

;FRETOP LSB -> X 

;wegen BLTU 

;FRETOP MSB -> A 


‚Nächsten Top-String suchen 


 —  _a—_ 1111 


* * k k *k 


* 


ProDOS-FRE-Routine 
modifiziert für Applesoft unter DOS 3.3 
mit Language-Karte 


* ÅÅÅ 


——————om om 


* a) Initialisieren mit BRUN LC.FRE 

* b) FRE-Befehl aufrufen mit: 

* POKE 227, F wobei F für freie Pages steht 

* (bei POKE 227, 255 erfolgt stets G/C) 

* CALL 768 

* 

SOURCE EQU $3A ;Quellbereich beim Blocktransfer 
DEST EQU $3C ;Zielbereich beim Blocktransfer 
INDEX EQU $3E ;Laufvariable,Deskriptorenpointer 
VARTAB EQU $69 ‚Start der Variablen 

ARYTAB EQU $6B ‚Start der Feldvariablen 

STREND EQU $6D ‚Ende der Variablen 

FRETOP EQU $6F ¡Start des Stringbereichs 
MEMSIZE EQU $73 ;<-> HIMEM 

> Initialisierung * 


A —---- ------------------------———: 


FREPGES 
PAGES 
MVEBLK 


MVEDRVE 


ORG 


EQU 
EQU 
EQU 


BIT 
BIT 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
STY 
LDX 
JSR 
BIT 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
RTS 


$9000 
$E3 ;‚dezimal 227: POKE 227, FREPGES 
$300 
$917C 
$C089 :RAM-Karte schreiben 
$C089 ; Bank 1 
#>FREIMGE ;Parameter für 
SOURCE+1 ; Block-Transfer setzen 
#<FREIMGE 
SOURCE 
+>$D000 
DEST+1 
+0 
DEST 
+2 ‚2 Blöcke 
MVEBLK ;BLTR-Entry im Fre-Image 
$CO8A :Bankl Schreibschutz 
+255 ;G/C immer ausführen 
FREPGES ; da stets weniger als 255 Seiten 
#DRVEND-DRIVER 
DRIVER, Y ;Treiber-Routine 
PAGES , Y ; in Seite 3 tibertragen 
MVEDRVE 
Treiber-Routine * 


 — _ÁAa ÁA--- es o _ —__—_______ AAA 





Für Applebenutzer, die über keine Lan- 
guage Card verfügen, ist am Ende dieses 
Artikels der Hexdump einer nochmals 
überarbeiteten Version namens RAM.FRE 
angefügt, die als Puffer ausschließlich den 
Eingabepuffer ab $0200 benutzt und unter- 
halb der DOS-Puffer residiert. Sie wurde 
zugunsten des Speicherplatzes einiger In- 
telligenz beraubt, zeigt jedoch gegenüber 
der Original-G/C erheblich kürzere Lauf- 
zeiten. Ein ausführliches Listing würde den 
Rahmen dieses Artikels sprengen, mit der 
LC-Version müßte die gekürzte Fassung 
jedoch verständlich werden. (Der Quell- 
Code von RAM.FRE befindet sich auf der 
Peeker-Sammeldiskette.) Auch RAM.FRE 
kann direkt von der Diskette gestartet wer- 
den und wird über die Treiberroutine in der 
Page 3 mit CALL 768 aufgerufen. Nach 
BRUN RAM.FRE wird HIMEM automatisch 
auf $94ED gesetzt, denn RAM.FRE belegt 
den Bereich $94ED-$95FF. 


5. Zeitvergleiche 


Zur Messung der Laufzeiten der einzelnen 
Routinen entstand das kleine Applesoft- 
Testprogramm namens FRE.TEST, das 
nichts anderes tut als eine Menge String- 
müll zu erzeugen. Dies geschieht einfach 
dadurch, daß jedem Feldelement zweimal 
eine Zeichenkette (hier nur 1 Zeichen) 
zugeordnet wird. Der Applesoft-Interpre- 
ter legt selbst bei gleicher Länge und glei- 
chem Inhalt stets einen neuen String an. 
Die Zuordnung A$(l) = „A“ wäre sinnlos, 
da in diesem Fall der Deskriptor auf die 
Stelle im Programm selbst verweisen wür- 
de, statt auf einen neu angelegten String. 


Das Programm gibt vor der Dimensionie- 
rung, nach der Zuweisung der Strings und 
nach der G/C jeweils die Anzahl der durch 
Strings belegten und der noch freien Spei- 
cherplätze an. Vor und nach der G/C er- 
folgt ein Piepston, um die Zeit stoppen zu 
können. Es empfiehlt sich, das Programm 
selbst einmal mit verschiedenen Mengen 
an Strings zu testen und das Verhältnis der 
Speicherbereiche zu beobachten. Bei der 
Benutzung der Original-G/C-Routine ist in 
der Zeile mit dem CALL 768 statt dessen I 
= FRE(0) einzusetzen. 


Das Diagramm 2 gibt die Laufzeiten der 
einzelnen Programme bei verschiedenen 
Stringzahlen an. Ein Kommentar hierzu 
erübrigt sich. Die Ungenauigkeit rührt da- 
her, daß nur ein frei schwingender Oszilla- 
tor als Zeitbasis zur Verfügung stand. 


902E: 
902F: 
9031: 
9033: 
9035: 
9037: 
9039: 
903B: 
903E: 
9041: 
9044: 
9047: 


DOOO: 
D002: 
D005: 
D007: 
DOOA: 
DOOC: 
DOOF: 
DO11: 
DO 13: 
DO15: 
D018: 
DOLA: 
DO1D: 
DOIF: 
DO21: 
DO22: 
D024: 
D025: 
D027: 
D029: 
DO2B: 
DO2E: 
DO30: 


D033: 
D034: 
D036: 
D038: 
DO3A: 
DO3C: 
DO3E: 
DO40: 
D042: 
D045: 
D048: 
D04B: 
D04D: 
D050: 
D053: 
D055: 
D058: 
DOSB: 
DO5D: 
DOSF: 
D062: 
D064: 
D067: 
DOGA: 
DO6C: 
DOGF: 
DO71: 
DO74: 
D077: 
D079: 
DOTC: 
DOTF: 
D082: 
D085: 
D087: 


D088: 
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A5 
ES 
AS 
ES 
C5 
BO 
2C 
2C 


2C 
60 


18 


6F 
6D 
70 
6E 
E3 
OC 
8B 
8B 


8A 


co 
co 
DO 
co 


D1 


Dl 


D1 


D1 


D1 


D1 


D1 


D1 
D1 


D1 


D1 


D1 


D1 


D1 


D1 
Dl 


D1 


D1 
D1 


DO 


D1 
D1 


113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
Ler 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 


UTILITIES å 





DRIVER SEC 

LDA FRETOP ;FRETOP — STREND = 

SBC STREND ; Anzahl freier Seiten 

LDA FRETOP+1 

SBC STREND+1 

CMP FREPGES ;gröBer wie FREePaGES ? 

BCS DRVEND ; ja, dann fertig 

BIT $CO8B :RAM-Karte lesen 

BIT $CO8B ; schreiben 

JSR FRE ;G/C aufrufen 

BIT $C08A ;ROM lesen, RAM Schreibschutz 
DRVEND RTS 
* modifizierte ProDOS-Routine = 
A —— __—__ 1. 1... mm mm mr —— ke 
FREIMGE ORG œ 

ORG $D000 :RAM-Karte Bankl 


* 


* Speicherverteilung: $D000-$DIFF: Programm 
$D200-$DFFF: Puffer 


* 

* 

FRE LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
SBC 
ADC 
CMP 
BCS 
STA 

NOALL LDA 
STA 
CLC 
BEQ 
SEC 

GOODPGE LDA 
STA 
SBC 
STA 
ADC 
STA 


LOOP SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
STA 
LDA 
CMP 
BCC 
SBC 
STA 
LDA 
SBC 
SBC 
EOR 
ADC 
CMP 
BCC 
LDA 
SETBUF CMP 
BCS 
LDA 
SBC 
SETSAV STA 
JSR 
LDX 
JSR 
JSR 
LDA 
STA 
BNE 
RETURN RTS 


+13 
PAGES 
+>$D200 
BUFFER 
FRETOP+1 
OLDTOP 
MEMSIZE+1 
FRETOP+1 
#1 

PAGES 
NOALL 
PAGES 
MEMSIZE 
FRETOP 


GOODPGE 


MEMSIZE+1 
FRETOP+1 
+$00 
SVESTRT 
+$00 
SAVEND 


VARTAB 
+7 
INDEX 
VARTAB+1 
+$00 
INDEX+1 
ARYTAB 
ARYINDX 
SVESTRT 
OLDTOP 
RETURN 
PAGES 
BUFSTRT 
FRETOP+1 
SVESTRT 
BUFSTRT 
+$FF 
+$02 
BUFSTRT 
SETBUF 
BUFSTRT 
OLDTOP 
SETSAV 
OLDTOP 
+$00 
SVESTRT 
BLTR 
ARYTAB+1 
NORVAR 
ARYVAR 
SVESTRT 
SAVEND 
LOOP 


:14 verbleibende Seiten in Bankl 
; für Puffer einrichten 

;Puffer auf nächste Seite nach 

; Fre-Routine setzen 


‚alten Stringanfang retten 
‚passen alle Strings in den 
; Puffer ? 

; (Seitenzahl aufrunden) 


; ja, dann den Puffer ent- 
;‚ sprechend verkleinern 
‚Stringanfang auf HIMEM 
‚somit von neuem auffüllen 
; C = 0 wenn Seitenanfang 


: C = 1 wenn mitten in Seite 


c=1 C=0 
HIMEM HIMEM-1 
HIMEM+1 HIMEM 


:Laufvariable auf Variablen- 
; start setzen und 7 Bytes 
: Offset abziehen 


; wird spåter 
: wieder hinzuaddiert ! 
:Feldindex setzen 


;Untergrenze des alten String- 

; bereiches erreicht ? 

; ja, dann fertig 

;‚Pufferbereich um Anzahl Puffer- 
; seiten tiefer setzen 

;kann um die durch die G/C gewon- 
; nenen Seiten verringert werden 
; (erfolgt durch Betragsbildung 

; mittels Zweierkomplement) 
‚aufrunden 

‚neuer BUFstart unterschritten ? 
; ja, dann weiter 

; nein, 
;letzter Durchgang ? 

; nein, dann weiter 

; ja, dann Savebereich 

; korrigieren (abgerundet) 


dann wieder abrunden 


;Savebereich puffern 


‚einfache Variablen bearbeiten 
;Feldvariablen bearbeiten 
‚alter Save-Start = 

; neues Save—Ende 

‚nächsten Block (unbedingt) 
¡ENDE 


* Einfach Variablen bearbeiten 


NORVAR CLC 
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LC.FRE 


BSAVE LC.FRE, A$9000, 


$9000: 
$9008: 
$9010: 
$9018: 
$9020: 
$9028: 
$9030: 
$9038: 
$9040: 
$9048: 
$9050: 
$9058: 
$9060: 
$9068: 
$9070: 
$9078: 
$9080: 
$9088: 
$9090: 
$9098: 
$90A0: 
$90A8: 
$90B0: 
$90B8: 
$90C0: 
$90C8: 
$90D0: 
$90D8: 
$90E0: 
$90E8: 
$90FO: 
$90F8: 
$9100: 
$9108: 
$9110: 
$9118: 
$9120: 
$9128: 
$9130: 
$9138: 
$9140: 
$9148: 
$9150: 
$9158: 
$9160: 
$9168: 
$9170: 
$9178: 
$9180: 
$9188: 
$9190: 
$9198: 
$91A0: 
$91A8: 
$91BO: 
$91B8: 
$91C0: 


RAM.FRE 


BSAVE RAM. 


$94C0: 
$94C8: 
$94D0: 
$94D8: 
$94E0: 
$94E8 : 
$94FO: 
$94F8: 
$9500: 
$9508: 
$9510: 
$9518: 
$9520: 
$9528: 
$9530: 
$9538: 
$9540: 
$9548: 
$9550: 


FRE, A$94CO, 


L$01C9 


co 
3A 
3C 
co 
2E 
60 
ES 
CO 
8A 
A9 
80 
CD 
A5 
AS 
D1 
69 
00 


L$0140 


99 
85 
85 
AS 
C5 
AS 
6F 
70 
69 
00 
20 
20 
95 
A5 
E6 
FO 
3E 
04 
DO 


A9 
A9 
A2 
A9 
90 
38 


00 
E3 
70 
6F 
E3 
70 
18 
E9 
E9 
85 
BE 
5C 





D089: 
DO8B: 
DO8D: 
DO8F: 
D091: 
D093: 
D095: 
D097: 
D099: 
DOSB: 
DOSD: 
DOGF: 
DOAO: 
DOA2: 
DOA4: 
DOA6: 
DOAB: 
DOAA: 
DOAC: 
DOAF: 
DOB1: 
DOB4: 
DOB6: 
DOB9: 


DOBB: 
DOBE: 
DOCO: 
DOC2: 
DOC4: 
DOC7: 
DOCS: 
DOCC: 
DOCE: 


DOD1: 
DOD2: 
DOD4: 
DOD6: 
DOD8: 
DODA: 
DODC: 
DODF: 
DOEL : 
DOE3: 
DOES: 


DOE”: 
DOES: 
DOEB: 
DOED: 
DOEF: 
DOF1: 
DOF3: 
DOFS: 
DOF7: 
DOF9: 
DOFB: 
DOFD: 
D100: 
D101: 
D103: 
D105: 
D106: 
D108: 
D10A: 
D10B: 
D10D: 
D1OF: 
D111: 
D113: 
D114: 
D116: 
D118: 
D11A: 
D11C: 
D11E: 
D11F: 


D120: 


SE 


SE 
EO 
04 
3E 


D8 
D2 
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CD 


D1 


D1 


D1 


DO 


D1 


D1 


Dl 


D1 


D1 


D1 


144 NORVAR1 LDA 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221l 
222 
223 
224 
225 
226 
227 
228 


NORVAR2 


NORVAR3 


ADC 
STA 
BCC 
INC 
EOR 
BNE 
CPX 





INDEX ;Laufvariable 

#7 ; um Offset zur nachsten 
INDEX ; Variablen erhöhen 
NORVAR2 

INDEX+1 

ARYTAB ;Feldvariablen erreicht ? 
NORVAR3 ; nein, dann weiter 
INDEX+1 ;MSB prüfen 

RETURN ; ja, dann zurück 


+$0 
(INDEX),Y ;1. Namensbyte 


(INDEX),Y ;2. Namensbyte 


NORVAR ;kein String, wenn Bit7 = Bit7 
(INDEX), Y 
NORVAR ;kein String, wenn Bit7 = 0 


+$4 ;4. Eintrag = 
(INDEX),Y ; Stringadresse MSB 


SVESTRT ;liegt Variable im gepufferten 
NORVAR1 ; Bereich ? 

SAVEND 

NORVAR ; nein, dann nåchste Variable 
MVESTR ; ja, dann verschieben 

NORVAR ‚unbedingt 


* Array-Variablen bearbeiten 


ARYVAR 


ARYVAR1 


NXTVAR 


NXTVAR1 


JSR 
BCS 
LDY 
LDA 
CMP 
BCC 
CMP 
BCS 
JSR 


CLC 
LDA 
ADC 
STA 
BCC 
INC 
CMP 
BNE 
CPX 
BNE 
BEQ 


NXTARY ;Array-Pointer erhöhen 

RTNARY ;Ende aller Variablen erreicht 
+$02 ;2. Eintrag = MSB 

(INDEX),Y ;liegt Variable im gepufferten 
SVESTRT ; Bereich ? 

NXTVAR 

SAVEND 

NXTVAR ; nein, dann gleich weiter 
MVESTR ; ja, dann verschieben 

#3 ‚Offset zum nächsten Deskriptor 
INDEX ;Laufvariable auf nächsten 
INDEX ; Deskriptor setzen 

NXTVAR1 

INDEX+1 

ARYINDX ;Feldende erreicht ? 

ARYVAR1 ; nein, dann normal weiter 
INDEX+1 ;MSB prüfen 

ARYVAR1 

ARYVAR ; ja, dann erst NXTARY aufrufen 


* Laufvariable auf nächstes Stringfeld setzen 


NXTARY 


NXTARY1 


RTNARY 


* Savebereich 


TE D1 229 BLTR 


CLC 
LDA 
STA 
STX 
EOR 
BNE 
CPX 
BEQ 
LDY 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
TAX 
LDY 


RTS 


LDA 


¡als Flag und fúr Addition 


ARYINDX ;Laufvariable auf 
INDEX ; nåchstes Feld setzen 
INDEX+1 
STREND ;Stringende erreicht ? 
NXTARY1 ; nein, dann weiter 
STREND+1 ;MSB prüfen 
RTNARY ; ja, dann mit C = 1 zurück 
+$2 ;2. Eintrag = Relativpionter 
(INDEX),Y ; zum nächsten Feld 
INDEX ‚zu INDEX addieren 
ARYINDX ;und als neuen Feldpointer 
; merken 
( INDEX) , Y 
INDEX+1 
; X —> MSB 
+$0 ;NACHSTES FELD PRÜFEN 


(INDEX),Y ;1. Namensbyte 


(INDEX),Y ;2. Namensbyte 


NXTARY ;kein String, wenn Bit7 = Bit7 
+$4 ;4. Eintrag = Anzahl DIM's 
(INDEX), Y 

;2 Bytes pro Dimension 
#5 ; + 5 Bytes überspringen 
INDEX ; (wegen Tabelle der Größen 
INDEX ; der einzelnen Dimensionen) 
RTNARY 
INDEX+1 

;C=0 -> kein Stringende 

;C = 1 -> Stringende erreicht 


in Puffer übertragen 


BUFSTRT ‚Startadresse des zu puffernden 


$9558: 
$9560: 
$9568: 
$9570: 
$9578: 
$9580: 
$9588: 
$9590: 
$9598: 
$95A0: 
$95A8: 
$95B0: 
$95B8: 
$95C0: 
$95C8: 
$95D0: 
$95D8: 
$95E0: 
$95E8: 
$95FO: 
$95F8: 


FRE. TEST 


100 HOME : PRINT "FRE.TEST" 

110 PRINT CHR$ (4)"BRUN LC.FRE" 

120 A = 1000: REM Stringanzahl 

130 B$ = CHR$ (7): REM Bell 

140 GOSUB 220: DIM A$(A) 

150 FOR I = 0 TO Å 

160 A$(I) = B$:A$(I) = B$ 

170 NEXT 

180 GOSUB 220: PRINT B$; 

190 POKE 227, 255: CALL 768: 
REM FRE-Befehl 

200 PRINT B$;: GOSUB 220 

210 END 

220 PRINT "STRINGS= "; PEEK (115) + 
PEEK (116) * 256 - PEEK (111) - 
PEEK (112) * 256, 
PRINT "FRE= "; PEEK (111) + 
PEEK (112) * 256 — PEEK (109) - 
PEEK (110) * 256 
RETURN 


Neu im Hüthig Software Service 


SUPERPLOT 


Double-Hires-Utility 


BLTRLOOP 


* String 


MVESTR 


MVESTR1 


MVSTLOOP 


RTNMVST 


BUFFER 
PAGES 
SVESTRT 
SAVEND 
BUFSTRT 
ARYINDX 


OLDTOP 
457 bytes 


STA 
LDA 
STA 
LDY 
STY 
STY 
LDX 
INX 
LDA 
STA 
INY 
BNE 
INC 
INC 
DEX 
BNE 
RTS 


UTILITIES 





SOURCE+1 ; Bereichs 

BUFFER ;Pufferadressse als Zielbereich 
DEST+1 ; eintragen 

30 ‚nur ganze Seiten 

SOURCE 
DEST 
PAGES ;Seitenzåhler 
(SOURCE), Y ;verschieben 
(DEST), Y 


BLTRLOOP 
DEST+1 
SOURCE+1 


‚seitenweise 


BLTRLOOP 


unter FRETOP eintragen 


CMP 
BCC 
SBC 
CLC 
ADC 
STA 
DEY 
LDA 
STA 
DEY 
SEC 
LDA 
SBC 
STA 





BUFSTRT 
MVESTR1 
BUFSTRT 


;befindet sich MSB innerhalb 
; des Puffers ? 

; ja, dann auf entsprechende 
; Adresse innerhalb des 

; Puffers setzen . 

;MSB des String-Zeigers 


BUFFER 
SOURCE+1 


(INDEX), Y 
SOURCE 


;LSB des String-Zeigers 
‚als Quellbereich 


FRETOP 
( INDEX) , Y 
FRETOP 


;Stringende um Lange 
; des Strings herabsetzen 


(INDEX), Y 
FRETOP+1 
#0 ‚falls Seite unterschritten 
FRETOP+1 


;‚Deskriptor LSB aktualisieren 


(INDEX),Y ;Deskriptor MSB 


( INDEX) , Y 
RTNMVST 


‚Stringlänge 
‚wenn 0, dann fertig 
‚Länge als Index 


(SOURCE), Y ;alten String 
(FRETOP),Y ; verschieben 
;Zero-Flag ? 

MVSTLOOP 


‚Adresse des Puffers 

‚Anzahl der Pufferseiten 

;Start des Savebereiches 

; Ende des Savebereiches 
;tatsåchlich gepufferter Bereich 
;Feldindex (letzter Feldanfang) 
;<-> FRETOP vor G/C 


von Karl-Walter Bott, erscheint Mitte Dezember 1984, Programmdiskette und Manual, DM 48,— 


SUPERPLOT ist eine neue, ungewöhnlich kompakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASCII-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Applesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
also z. B. & HPLOT 500, 100 TO 500, 150 usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 


Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 1 
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Speichern Sie 





den Bildschirm ab! 


Organisation des 40-Z/Z-Apple- und des 


von Dr. Jürgen B. Kehrel 


Den Inhalt einer Bildschirmseite in ge- 
druckter Form vorliegen zu haben kann 
zu Dokumentationszwecken nützlich 
sein. Eine Reihe von „intelligenten“ 
Druckerinterfaces ist in der Lage, auf 
einen einfachen Befehl hin eine soge- 
nannte „Hardcopy“ auf einem Drucker 
zu erzeugen. Was aber, wenn Sie die- 
sen Ausdruck gern mitten in einem län- 
geren Text stehen hätten oder weiter- 
bearbeiten wollen? Hier ergibt sich die 
Notwendigkeit, eine Bildschirmseite 
als einen Textfile auf Diskette abzu- 
speichern, der dann in ein Textverar- 
beitungsprogramm wie z.B. Applewri- 
ter II eingelesen und von beliebigem 
Text eingerahmt werden kann. Die im 
folgenden beschriebenen Programme 
„SCHIRMDISK“ und „VIDEXT“ erledi- 
gen genau diese Aufgabe. 


Das SCHIRMDISK-Programm 


SCHIRMDISK kann auf zwei Arten benutzt 
werden: Die eine eignet sich zur Einbin- 
dung in Programme, aus denen heraus es 
aufgerufen werden kann. Die zweite Art ist 
für solche (Fremd-)Programme gedacht, 
bei denen man einen CALL-Befehl nicht 
einbauen kann. Einzige Voraussetzung 
hier: Mit Reset muß man das Programm 
verlassen können, und beim Laden darf 
das SCHIRMDISK-Programm nicht über- 
schrieben werden. Die Diskettenkopie Ih- 
res Bildschirms wird ausgeführt und als 
Textfile „SCHIRMTEXT“ auf das aktuelle 
Laufwerk geschrieben, wenn Sie die Re- 
set-Taste drucken (Ctrl + Reset auf Apple 
lle). 

Nun zum Programm selbst. Vor der An- 
wendung muß es einmal mit „BRUN 
SCHIRMDISK" initialisiert werden. Da- 
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80-Z/Z-Videx-Bildschirms 


durch werden die Vektoren in $03F2- 
$03F4 auf die zweite Einsprungstelle ge- 
legt, denn der Apple schaut nach dem 
Drucken der Reset-Taste hier nach, wohin 
er springen soll. $03F2 und $03F3 stellen 
die Adresse dar und $03F4 eine Prüfzahl, 
das sogenannte „Power-up-Byte“. Es 
muß den Wert von $03F3 Exklusiv-Oder 
verknüpft mit der Hexadezimalzahl $A5 
besitzen. Falls das nicht der Fall ist, macht 
Ihr Apple immer einen Kaltstart, benimmt 
sich also so, als hätten Sie ihn gerade 
eingeschaltet. Kaum jemand wird im Kopf 
EOR $A5 ausrechnen können, doch gibt 
es glücklicherweise im Monitor eine Routi- 
ne bei $FB6F, die das für uns erledigt und 
den richtigen Wert nach $03F4 schreibt. 

Damit ist die Initialisierungsphase abge- 
schlossen. Wenn Sie SCHIRMDISK aus 
einem Programm starten wollen, können 
Sie dies, auch ohne Reset drücken zu 
müssen, mit einem CALL 798 direkt tun. 


Der Apple-Textbildschirm 


Der Apple kann auf seinem Textbildschirm 
24 Zeilen (0-23) mit je 40 Zeichen (0-39) 
darstellen, also insgesamt 960 Zeichen. 
Es existieren zwei Textbildschirmseiten, 
von denen normalerweise nur die Seite 1 
angezeigt und benutzt wird. Jedem Zei- 
chen auf dem Bildschirm entspricht eine 
Speicherposition im RAM des Apple. Die 
Seite 1 benutzt Speicherstellen von $0400 
bis $07FF, die Seite 2 von $0800 bis 
$0BFF. Letztere werden auch von Ap- 
plesoft zur Speicherung des Programms 
verwendet, so daß die Benutzung der 
zweiten Textseite einige Änderungen er- 
fordert, die in diesem Zusammenhang 
nicht erläutert werden sollen. Befassen wir 
uns also nur näher mit der Textseite 1. 


Jedes Zeichen wird repräsentiert durch 
seinen ASCII (American Standard Code 
for Information Interchange)-Wert. Dem 
Apple ll Reference Manual entnehmen wir, 
wie jeder Code von $00 bis $FF auf dem 
Bildschirm dargestellt wird. Jeder GroB- 
buchstabe ist viermal vorhanden, entspre- 
chend NORMAL, INVERSE und FLASH 
sowie als nicht-sichtbares Ctrl-Zeichen. 
Zahlen existieren drei- oder viermal, je 
nachdem ob der Apple Kleinbuchstaben 
anzeigen kann oder nicht, denn die Codes 
von $E0 bis $FE sind im Apple lle oder im 
umgerüsteten Il Plus mit dem kleinen nor- 
malen Alphabet belegt. So ist es auch 
verständlich, warum wir keine blinkenden 
oder inversen Kleinbuchstaben haben. 
(Diese Angaben beziehen sich vornehm- 
lich auf den Apple Il Plus mit Kleinschreib- 
umrüstsatz. Beim Ile und llc gibt es er- 
stens gegenüber dem Apple Il einen zu- 
sätzlichen, „alternativen“ Zeichensatz 
ALTCHAR und zweitens sind diese alter- 
nativen Zeichensátze beim lle und Ilc nicht 
identisch wegen der sog. Maus-Sonder- 
zeichen beim llc. Auf die diesbezuglichen 
Unterschiede wird in einem gesonderten 
Screen-Dump-Aufsatz eingegangen. 
Anm. d. Red.) 

Aufeinanderfolgende Zeilen stehen nun 
leider nicht auch aufeinanderfolgend im 
Speicher. Vielmehr wird folgendes Muster 
verwendet: 


Zeile Adresse Zeile Adresse Zeile Adresse 


0 $0400-427 8  $0428-44F 16  $0450-477 
1 $0480-4A7 9 $04A8-4CF 17 $04D0-4F7 
2 $0500-527 10 $0528-54F 18  $0550-577 
3 $0580-5A7 11 $05A8-5CF 19  $05D0-5F7 
4 $0600-627 12  $0628-64F 20 $0650-677 
5 $0680-6A7 13  $06A8-6CF 21  $06D0-6F7 
6 $0700-727 14 $0728-74F 22  $0750-777 
y $0780-7A7 15  $07A8-7CF 23 $07D0-7F7 





Wenn wir horizontal durch diese Tabelle 
schauen, so sehen wir, daß immer 7 Zei- 
len Ubersprungen werden. $0400-$047F 
stellt also die Zeilen 0, 8 und 16 dar. Es 
bleiben 8 Bytes Ubrig, die nicht gesehen 
werden können und die als sogenanntes 
, Scratchpad"-Stellen oder „Screen- 
Holes“ den Erweiterungskarten zugeord- 
net sind. 


Speichern des Bildschirms 


Wollen wir den Bildschirm-Inhalt als Text- 
file speichern, so müssen wir diesem Mu- 
ster folgen, da sonst die Zeilen durchein- 
andergeraten. Für jede Zeile muß das Ma- 
schinenprogramm die Anfangsadresse er- 
rechnen. Zum Glück besorgt das für uns 
wieder eine Routine im Apple-Monitor na- 
mens BASCALC bei $FBC1, die ihr Er- 
gebnis in BASL, BASH ($0028, $0029) 
ablegt. Um BASCALC mitzuteilen, welche 
Zeile wir lesen wollen, benutzen wir die 
Routine VTABZ ($FC24). Die Zeilennum- 
mer muß beim Aufruf im Akkumulator ste- 
hen (deshalb der TXA-Befehl). Die Start- 
adresse wird dann nach $0028-$0029 ge- 
schrieben, von wo wir durch indirekt indi- 
zierte Adressierung mit dem Y-Register 
die folgenden 40 Zeichen lesen und aus- 
geben. Dabei werden alle Zeichen in 
NORMAL umgewandelt, Ctrl-Zeichen 
werden zu Leerzeichen gemacht. 


DOS und DIRECT MODE 


Soweit ist unser Programm jetzt fertig, wir 
müssen nur noch die Diskettenbefehle ge- 
ben. Wir tun dies genauso, wie wir es in 
BASIC auch gemacht hätten, und zwar mit 
Ctrl-D OPEN SCHIRMTEXT <Return> 
Ctrl-D WRITE SCHIRMTEXT <Return> 
Ctrl-D CLOSE <Return> am Ende. 

Wir drucken die Befehle in einer Schleife 
über COUT aus, wodurch sie von DOS 
erkannt werden können. Dieses Verfahren 
funktioniert leider nur mit DOS 3.3 und 
nicht mit ProDOS. (Ein Screen-Dump-Pro- 
gramm für ProDOS ist ebenfalls in Vorbe- 
reitung. Anm. d. Red.) 

Würden wir unser Programm jetzt starten, 
so erhielten wir nicht den gewünschten 
Textfile, weil noch drei Fehler vorliegen. 
Der erste hat damit zu tun, daß wir unser 
Programm auch über Reset starten wollen. 
Dadurch wird DOS abgekoppelt, so daß 
keine Diskettenbefehle mehr möglich 
sind. Die Routine DOSHOOK oder CON- 
NECT ($03EA) verbindet DOS wieder mit 









UTILITIES 













Softswitch Zeile 
(LDA, PEEK) 79 
COBO 
Bank 0 CDFF | CCOO 
7 
8 
9 

10 
COB4 11 1920 Zeichen 
Bank 1 12 Bildschirm 
ee. 13 

14 

15 

16 

17 
COB8 18 
Bank 2 19 
I 20 

21 

22 

3 CD7F 
COBC PN LEE ELL 128 Zeichen 
Bank 3 Å unsichtbar 








Diagramm 1: Organisation des Videx-Bildschirms 


dem InformationsfluB. Trotzdem bekåmen 
wir eine Fehlermeldung, nåmlich ,NOT 
DIRECT COMMAND". OPEN und WRITE 
laßt DOS nämlich nur aus einem laufenden 
BASIC-Programm zu und nicht als direkte 
Tastatureingabe. Ein Maschinenprogramm 
ist für DOS aber wie eine Tastatureingabe. 
Also müssen wir ein laufendes Programm 
vortäuschen. Mit den Befehlen in Zeile 38 
bis 44 wird dies erreicht. In einem BASIC- 
Programm enthält $AAB6 eine Codezahl 
für das verwendete BASIC ($40 = Ap- 
plesoft ROM), CURLIN und CURLIN+1 
die laufende Zeilennummer. Befinden wir 
uns nicht in einem Programm, ist CUR- 
LIN+1 gleich $FF. Das normale Prompt- 
zeichen U = $DD wird in $0033 abgespei- 
chert und åndert sich bei einem laufenden 
Programm in $06. SchlieBlich ist Bit 7 bei 
$00D9 = RUNMODE in einem Programm 
gesetzt. Bringen wir diese kleinen Ände- 
rungen an, glaubt DOS, ein BASIC-Pro- 
gramm auszuführen, und alles läuft so, wie 
von uns geplant. 

Einen kleinen Schönheitsfehler hat das 
Programm immer noch. Wenn wir Reset 
drücken oder es mit einem CALL 798 star- 
ten, springt der Bildschirm um eine Zeile 
hoch, so daß uns die obersten 40 Zeichen 
verlorengehen. Dies liegt nicht an der 
Reset-Routine selbst, sondern an der Tat- 
sache, daß wir vor einem Diskettenbefehl 


ein Return (= $8D) ausgeben müssen. 
Wieder hilft ein Trick weiter. Mit den Be- 
fehlen in Zeile 34 bis 37 koppeln wir 
schlicht und einfach den Bildschirm ab. 
Wenn der Apple ein Zeichen über die Rou- 
tine COUT (= $FDED) sendet, schaut er in 
den Speicherstellen $0036 und $0037 (= 
CSWL, CSWH) nach, wohin er es weiter- 
geben soll. Ohne DOS steht hier $FDFO 
(= COUT1). DOS schaltet sich nun in den 
Informationsfluß ein, indem es den Zeiger 
in sich selber hinein nach $9EBD verwei- 
sen läßt. Hier werden die DOS-Befehle 
ausgefiltert und alles übrige normalerwei- 
se an COUT1 übergeben. Diese Weiterlei- 
tungsadresse (Vektor-Adresse) steht in 
$AA53 und $AA354. Schreiben wir hier ein- 
fach die Adresse einer Speicherstelle hin- 
ein, die eine RTS-Instruktion enthält, bleibt 
der Bildschirm unangetastet, DOS erhålt 
aber noch immer alle Informationen. 
SCHIRMDISK wurde für den Bereich von 
$0300 an assembliert und kann mit dem 
Befehl 

BSAVE SCHIRMDISK, A$0300, L$00B8 
abgespeichert werden. 


Der Videx-Videoterm-Bildschirm 


Wenden wir uns nun der zweiten Aufgabe 
zu, den Schirm einer Videx-80-Zeichen- 
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karte komplett abzuspeichern. Wieder ist 
es unser erstes Ziel, den Aufbau des Bil- 
des zu verstehen. 

Der Videoterm-Bildschirm ist grundsätz- 
lich anders organisiert als der Apple-40- 
Zeichenschirm. Der komplette Bildschirm- 
speicher liegt auf der Videoterm-Karte in 
einem RAM von 2K Umfang. Er ist in die 
vier Bänke 0-3 aufgeteilt, die jeweils den 
Adreßraum von $CC00-$CDFF belegen. 
$C800-$CBFF wird von der Videoterm- 
Firmware benutzt, $CEOO-$CFFF ist frei. 
Alle Zeichen stehen sequentiell im Spei- 
cher, d.h. aufeinanderfolgende Zeichen 
liegen hintereinander, die Zeilen folgen 
einander. Von den 2048 Bytes (= 2K) sind 
immer nur 80 - 24 = 1920 Bytes sichtbar. 
Die vier Bänke werden aktiviert durch eine 
Leseoperation (LDA oder PEEK) der Spei- 
cherstellen $COBO (Bank 0), $COB4 (Bank 
1), $COB8 (Bank 2) oder $COBC (Bank 3). 
Insoweit ist die Videx-Karte einfacher zu 
verstehen als der Apple-Bildschirm. Kom- 
pliziert wird alles erst durch die Tatsache, 
daB den Bildschirmpositionen keine festen 
Speicherplatze zugeordnet sind, sondern 
der Bildanfang irgendwo in einer der vier 
Speicherbanke liegt. Diese Methode wur- 
de gewählt, um ein einfaches Auf- und 
Abwärts-Scrollen zu ermöglichen. Die va- 
riable Bildstartadresse, der Angelpunkt 
des Bildes, wird an einer definierten Stelle 
abgelegt ($06FB), um für alle Positionsbe- 
rechnungen zur Verfügung zu stehen. 
Ganz beliebig liegt der Start nun aber auch 
wieder nicht, denn er kann sich immer nur 
in Sprüngen von 80 Zeichen (= 1 Zeile) 
fortbewegen. Damit erhalten wir als mögli- 
che Startpositionen $0000, $0050, $00A0, 
$00FO, $0140, $0190 usw. Wie Sie leicht 
sehen können, åndern sich nur die beiden 
mittleren Ziffern, und genau diese werden 
in das eine Byte bei $06FB gepackt. 


Die Cursorposition zählt horizontal 
(CHORZ) von 0 bis 79 ($00-$49) und ver- 
tikal (CVERT) von 0 bis 23 ($00-$17). Die 
Startadresse der augenblicklich bearbeite- 
ten Zeile, die im Bereich von $0000 bis 
$07FF einschlieBlich liegt, ist in BASEL 
und BASEH abgelegt. Befindet sich der 
Cursor in der ersten Position der ersten 
Zeile (HOME Cursor), so sind Bildstart und 
Zeilenstart identisch. Wir werden diese 
Tatsache benutzen, um eine einfache Me- 
thode zum Abspeichern des Bildschirms 
zu entwickeln. 

Fassen wir noch einmal die wichtigsten 
Adressen zusammen, wie sie für eine Vi- 
dex-Videoterm in Slot 3 gelten: 


BASEL $047B Low Byte aktuelle Zeile 
BASEH $04FB High Byte aktuelle Zeile 


44 


SCHIRMDISK 


BSAVE SCHIRMDISK, A$0300, L$00B8 
Mit BRUN SCHIRMDISK initialisieren 
Mit Ctrl-Reset oder CALL 798 starten 


ED FD 


24 FC 


ED FD 


oo oı9V1 AU D- 


* SCHIRMDISK 


* 


* Apple 40-Z/Z-Schirm —> Textfile 


> 
DOUT 
VTAB 
VTABZ 
COUT 
SETVID 
SETPWRC 
LANGUA 
RETURN 
CURLIN 
RUNMODE 
CURSOR 
SOFTEV 
DOS 
DOSHOOK 
BASL 

* 


* 
START 


* 
ENTRY 


DISK 


* 
DRUCK 
TAB 


LADEN 


Pl 
P2 
P3 


SENDEN 


CLOSE 


EQU $AA53 
EQU $FC22 
EQU $FC24 
EQU $FDED 
EQU $FE93 
EQU $FB6F 
EQU $AAB6 
EQU $FF58 
EPZ $75 
EPZ $D9 
EPZ $33 
EQU $3F2 
EQU $3D0 
EQU $3EA 
EPZ $28 


ORG $300 
OBJ $800 





:Láuft bei $300 


CLD 
LDA 
STA 
LDA 
STA 
JSR 
RTS 
ASC 


FENTRY 
SOFTEV 
/ENTRY 
SOFTEV+1 
SETPWRC 


"1984 DR. 


DOSHOOK 
+RETURN 
DOUT 
/RETURN 
DOUT+1 
+$40 
LANGUA 
CURLIN+1 
+6 
CURSOR 
+$80 
RUNMODE 
+0 
TEXT, X 
DRUCK 
COUT 


DISK 
+0 


VTABZ 
+0 
(BASL), Y 
+$20 
Pl 
4+$C0 
+$60 
P2 
+$80 
+$80 
P3 
+$C0 
+$A0 
SENDEN 
+$A0 
COUT 


+40 
LADEN 


+24 

TAB 

+0 
TEXT1,X 


‚Binärmodus 
;Reset-Vektor auf 


;Entry setzen 
; Power-up-Byte setzen 


KEHREL" 


;Bildschirm 
;abkoppeln 


; ROM Applesoft 
;laufendes Programm 


:Disk-Befehle 


;Berechne Adresse 


;$00-1F -> $C0-DF 
;$20-5F -> $A0-DF 
;$60-7F -> $A0-BF 
;$80-9F -> $A0 
;Ganze Zeile fertig? 
‚alle Zeilen fertig? 


;Disk-Befehl 


Fortsetzung auf Seite 61 


Lohn- und 
Einkommensteuer 








1984 


Ein umfassendes CP/M-MBASIC-Programm 





Unter dem Motto — alle Jahre wieder, da 
schlachten wir ein Schwein — ist es auch 
jetzt wieder an der Zeit, vom Vater Staat 
die Steuern zurückzuverlangen. Abertau- 
sende von Arbeitnehmern schenken dem 
Staat jährlich Millionen Deutsche Mark, in- 
dem sie gesetzlich verankerte Steuervor- 
teile nicht ausschöpfen. Sie nehmen we- 
der die ihnen zustehenden Freibeträge für 
das laufende Jahr noch den Lohn/Einkom- 
mensteuer-Jahresausgleich in Anspruch, 
oder sie nutzen mangels entsprechender 
Kenntnisse und Aufklärung die Ihnen zu- 
stehenden Vergünstigungen nicht voll aus. 


Noch schwieriger wird es mit der Berech- 
nung der Steuer. Dieses Programm soll 
Ihnen eine Hilfestellung geben. Das Pro- 
gramm gibt keine Ratschläge in Rechts- 
fragen, sondern ermöglicht nur dem Laien 
eine schnelle Berechnung des zu versteu- 
ernden Einkommens. Wer also dieses 
Programm benutzt, muß sich im klaren 
darüber sein, welchen Betrag er wo anset- 
zen kann oder nicht. 


Das Programm ist in Microsoft Basic 
(MBASIC) geschrieben und erfordert das 
Betriebssystem CP/M 56 und folgende 
Hardware: 


Apple II+/e 

Monitor 

Z80-Karte 
80-Zeichen-Karte 

1 Diskettenlaufwerk 
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Lohn- und 








1984 


Einkommensteuer 


Ein umfassendes CP/M-MBASIC-Programm 


von Volker Duske 


Um einige Programme schneller zur Ver- 
fügung zu haben, könnte man eine 128K/ 
256K-Karte als Pseudo-Floppy benutzen, 
was jedoch nicht unbedingt erforderlich 
ist. 


Wenn Sie das abgebildete Listing eintip- 
pen möchten, hier einige wichtige Hin- 
weise: 


Da das Programm sehr lang ist und MBA- 
SIC allein 24K in Anspruch nimmt, ist der 
Speicherplatz für Programm und Daten 
recht gering. Dies wurde durch etliche Un- 
terprogramme umgangen, die mit A, B, C, 
... N, PASS, MENUE und HELP bezeich- 
net wurden. Die Übergabe der Variablen 
erfolgt durch die Anweisungen COMMON 
und CHAIN. Die Variablen sind im Pro- 
gramm PASS durch die DIM-Anweisun- 
gen dimensioniert, d.h. dies ist zugleich 
das spätere Startprogramm. | 

Der Code-Name „PEEKERDUSKE“ muß 
eingegeben werden, da sonst alle Pro- 
gramme außer MENUE und MBASIC ge- 
löscht werden. Falls Sie sich die Mühe 
machen wollen und das Programm abtip- 
pen, so können Sie einige Unterprogram- 
me weglassen, wenn diese nicht bei Ihrem 
Antrag benötigt werden. Ein kleines Bei- 
spiel: 


Sie haben keine Einkünfte aus Gewerbe- 
betrieb oder aus Kapitalvermögen. Damit 
brauchen Sie die entsprechenden Unter- 
programme nicht einzutippen. Das gilt 
auch für andere Unterprogramme, z.B. 


HELP. Allerdings ist es ratsam, sich zu- 
nächst einmal diese Help-Menüs durchzu- 
lesen, da hier sämtliche Instruktionen zum 
Arbeiten mit dem Steuerprogramm zu er- 
sehen sind. (Das HELP-Modul als Pro- 
gramm bzw. Listing befindet sich nur auf 
der Peeker-Sammeldiskette. Statt dessen 
haben wir hier der besseren Übersicht hal- 
ber die Bildschirm-Menüs selbst reprodu- 
ziert. Anm. d. Red.) 


Abschließend noch ein wichtiger Hinweis: 
Das vorliegende Programm kann trotz 
mehrfacher Überprüfung Fehler enthalten. 
Dies sei nicht nur zum Schutz des Autors 
und der Redaktion erwähnt, sondern auch 
zum Schutz vor übereiltem Handeln. Bitte 
erklären Sie bei Abweichungen der 
Rechenergebnisse dieses Programmes 
von denen des Finanzamtes den Steuer- 
bescheid nicht gleich für falsch, da es sich 
auch um rechtliche Differenzen handeln 
kann. Dieses Programm kann keine recht- 
lichen Entscheidungen treffen. 


Das Programm kann als gesonderte 
Peeker-Sammeldiskette im CP/M-Format 
zum Einzelpreis von DM 28,- (bzw. DM 
20,- für Peeker-Sammeldiskette-Abon- 
nenten) erworben werden. Diese Sam- 
meldiskette enthält alle Programmdateien, 
nicht jedoch MBASIC, das zuvor von der 
eigenen Systemdiskette geladen werden 
muß. Danach wird das Steuerprogramm 
gestartet mit: 


A> PASS 


Programm Lohn- und Einkommensteuer 


PASS.BAS: Password 


1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
. 1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 


1115 
1120 


1125 
1130 


HOME 

COMMON A(), B(), C(), D(), E(), M(), NÅ) 

VTAB 8:HTAB 35:PRINT"STEUER '84" 

VTAB 10:HTAB 33: PRINT"PEEKER-SOFTWARE" 

HTAB 38:PRINT"1984" 

HTAB 34:PRINT"Volker Duske" 

HTAB 32:PRINT"Kieler Str.309 B" 

HTAB 32:PRINT"2350 Neuminster" 

HTAB 32:PRINT" — Y 

HTAB 32:PRINT"Dr. Hüthig Verlag" 

HTAB 32:PRINT"Tel.: 06221/489-1" 

HTAB 32: PRINT"Serial #.: d00002" 

HTAB 32: PRINT"Passwort : "; 

CODE$=" " f 

FOR I = 1 TO 11 

T$=INKEY$ 

IF T$="" THEN 1075 

CODE$=CODE$+T$ 

NEXT I 

IF CODE$="PEEKERDUSKE" THEN 1125 

HOME 

VTAB 3:HTAB 10:PRINT"... bitte warten !!!" 
KILL "N.BAS": KILL "PASS.BAS": KILL "A.BAS": KILL 
"B.BAS": “KILL "C.BAS" 

KILL "D.BAS": KILL "E.BAS": KILL "F.BAS": KILL 
"G. BAS": KILL "H.BAS" 

KILL "I.BAS": KILL "J.BAS": KILL "K.BAS": KILL 
"L.BAS": KILL "M.BAS" 

DIM A(120), B(120), C(70), D(70), E(20), M(10), N(5) 
CHAIN "MENUE" 








MENUE.BAS: Hauptmenü 


1135 
1140 
1145 


1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 


1195 
1200 
1205 


1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 


1310 
1315 
1320 
1325 
1330 
1335 
1340 


1345 
1350 


1355 
1360 
1365 
1370 
1375 


REM MENUE 

COMMON A(), B(), C(), D(), E(), M(), NO 

HOME: PRINT"Hauptmenue :":FOR I = 1 TO 

79: PRINT"-"; :NEXT I: PRINT 

VTAB 4: PRINT" <A> Grundangaben" 

PRINT" <B> Einkünfte aus Land- und Forstwirtschaft" 
PRINT" <C> Einkünfte aus Gewerbebetrieb" 

PRINT" <D> Einkünfte aus selbständiger Arbeit" 
PRINT" <E> Einkünfte aus nichtselbständiger Arbeit" 
PRINT" <F> Einkünfte aus Kapitalvermögen" 

PRINT" <G> Einkünfte aus Vermietung und Verpachtung" 
PRINT" <H> Sonstige Einkünfte" 
PRINT" <I> Doppelbesteuerung u. außerordentliche 
Einkünfte" 

PRINT" <J> Sonderausgaben" 

PRINT" <K> Außergewöhnliche Belastungen" 

PRINT" <L> Besondere Abzugsbeträge u. ausländische 
Steuern! 

PRINT" <M> Einkünfte zur An- u. Abrechnung" 

PRINT" <N> Berechnungen durchführen" 

PRINT: PRINT" <?> HELP 

PRINT" <X> NEUER DURCHLAUF" 

PRINT" <Z> ENDE — zurück ins Betriebssystem" 


IF M(1) = 1 THEN VTAB 4:HTAB 11:PRINT"x" 
IF M(2) = 1 THEN VTAB 5:HTAB 11: PRINT"»" 
IF M(3) = 1 THEN VTAB 6:HTAB 11:PRINT"x" 
IF M(4) = 1 THEN VTAB 7:HTAB 11:PRINT"x*" 
IF M(5) = 1 THEN VTAB 8:HTAB 11:PRINT"x*" 
IF M(6) = 1 THEN VTAB 9:HTAB 11:PRINT"x*" 
IF M(7) = 1 THEN VTAB 10:HTAB 11:PRINT"x*" 
IF M(8) = 1 THEN VTAB 11:HTAB 11:PRINT"x*" 
IF M(9) = 1 THEN VTAB 12:HTAB 11:PRINT"»" 
IF M(10) = 1 THEN VTAB 13:HTAB 11:PRINT"x" 


IF N(1) = 1 THEN VTAB 14:HTAB 11: PRINT"x" 
IF N(2) = 1 THEN VTAB 15:HTAB 11:PRINT"*" 
IF N(3) = 1 THEN VTAB 16:HTAB 11:PRINT"*" 
IF N(4) = 1 THEN VTAB 17:HTAB 11:PRINT"x*" 


VTAB 23:HTAB 20:PRINT"Bitte wählen Sie <A - M, ?, X, 
2> > RE S 
WTAGE$="ABCDEFGHIJKLMN?XZ" 

VTAB 23:HTAB 67:GET WO$ 

VTAB 23:HTAB 67:PRINT WO$ 

P=INSTR(WTAGES, WO$ ) 

IF P=0 THEN 1315 

Pl=P 

ON Pl GOTO 

1350, 1350, 1350, 1350, 1350, 1350, 1350, 1350, 1350, 1350, 135 
0,1350, 1350, 1350, 1350, 1350, 1435 

GOTO 1145 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR SI = 1 TO 100:NEXT S1:NEXT I 

IF Pl 





= 1 THEN M(1) = 1:CHAIN "A" 
IF Pl = 2 THEN M(2) = 1:CHAIN "B" 
IF Pl = 3 THEN M(3) = 1:CHAIN "C" 
IF Pl = 4 THEN M(4) = 1:CHAIN "D" 
IF Pl = 5 THEN M(5) = 1:CHAIN "E" 


1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 


IF Pl = 6 THEN M(6) = 1:CHAIN "F" 
IF Pl = 7 THEN M(7) = 1:CHAIN "G" 
IF Pl = 8 THEN M(8) = 1:CHAIN "H" 
IF Pl = 9 THEN M(9) = 1:CHAIN "I" 
IF Pl = 10 THEN M(10) = 1:CHAIN "J" 
IF Pl = 11 THEN N(1) = 1:CHAIN "K" 
IF Pl = 12 THEN N(2) = 1:CHAIN "L" 
IF Pl = 13 THEN N(3) = 1:CHAIN "M" 
IF Pl = 14 THEN N(4) = 1:CHAIN "N" 
IF Pl = 15 THEN CHAIN "HELP" 

IF Pl = 16 THEN CLEAR:RUN "PASS" 
IF Pl = 17 THEN HOME: SYSTEM 


A.BAS: Grundangaben 


1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 


1510 
1515 


1520 
1525 


1530 


. 1535 


1540 
1545 
1550 
1555 


1560 
1565 


1570 


1575 
1580 
1585 
1590 
1595 
1600 


1605 
1610 
1615 


1620 
1625 
1630 
1635 
1640 
1645 
1650 


1655 
1660 
1665 


1670 
1675 
1680 


1685 
1690 


1695 
1700 


1705 
1710 


REM GRUNDANGABEN 

COMMON A(), B(), C(), D(), E(), M(), NG 

HOME : PRINT"Grundangaben :" 

FOR I = 1 TO 79:PRINT"-"; :NEXT I:PRINT 

VTAB 5:PRINT"Familienstand : <l> ledig, <2> 
JØrboLrBtak id y 
PRINT"Geburtsdatum (TTMMJJ) : steuerpflichtiger 
TT N in si ele os - 

PRINT"Geburtsdatum (TTMMJJ) : steuerpflichtige 
KOSS N vis T 

PRINT"Religion : <0> keine, <l> ev., <2> rk. Ehemann 


" 


PRINT"Religion : <0> keine, <l1> ev., <2> rk. Ehefrau 


PRINT"Kinder : Anzahl (1, 2, 3, 4, ...) 


PRINT"Zahlkinder : Anzahl (1, 2, 3, 4, ...) 


Up e ra a AA 


E ERA IO O A A 


PRINT:PRINT"Bestehen fúr die Ehefrau Einkúnfte oder 
Ausgaben, die in diesem" 

PRINT"Antrag berúcksichtigt werden mússen ? 

N e DA A S/R. 

VTAB 5:HTAB 65: INPUT"",A(1) 

IF A(1) = 1 OR A(1) = 2 THEN VTAB 5:HTAB 65:PRINT" 
";A(1):ELSE 1510 

VTAB 6:HTAB 65: INPUT"",A$ 


AS1=VAL(RIGHT$(A$,2)) :AS2=VAL(MID$(A$,3,2)):AS3=VAL(I 
EFT$(A$,2)) 

IF LEN(A$) = 6 AND AS1 < 99 AND AS2 < 13 AND AS3 < 
32 THEN VTAB 6:HTAB 65:PRINT" ";A$:ELSE 1520 
A=VAL(RIGHT$(A$,2)+MID$(A$,3,2)+LEFT$(A$,2)) 

A(2)=1 

IF A < 350102! THEN A(2)=5 

IF A < 200102! THEN A(2)=7 

IF A(1) = 1 THEN VTAB 7:HTAB 74: PRINT" 
1595 

VTAB 7:HTAB 65: INPUT"",A$ 





"> GOTO 


_ AS1=VAL(RIGHT$ (A$, 2) ) : AS2=VAL(MID$(A$,3,2) ) : ASS=VAL(L 


EFT$(A$,2)) 

IF LEN(A$) = 6 AND AS1 < 99 AND AS2 < 13 AND AS3 < 
32 THEN VTAB 7:HTAB 65: PRINT" ";A$:ELSE 1560 
A=VAL(RIGHT$(A$,2)+MID$(A$,3,2)+LEFT$(A$,2)) 

B(2)=1 

IF A < 350102! THEN B(2)=5 

IF A < 200102! THEN B(2)=7 

VTAB 8:HTAB 65:INPUT"",A(3) 

IF A(3) = 0 OR A(3) = 1 OR A(3) = 2 THEN VTAB 8:HTAB 
65 :PRINT" ";A(3):ELSE 1595 

IF A(1) = 1 THEN VTAB 9:HTAB 79:PRINT"-";:GOTO 1620 
VTAB 9:HTAB 65:INPUT"",B(3) 

IF B(3) = 0 OR B(3) = 1 OR B(3) = 2 THEN VTAB 9:HTAB 
65: PRINT" ";B(3):ELSE 1610 

VTAB 10:HTAB 65:INPUT"",A(4) 

VTAB 10:HTAB 65:PRINT" ";A(4) 

VTAB 11:HTAB 65:INPUT"",A(5) 

VTAB 11:HTAB 65:PRINT" ";A(5) 

IF A(1) = 1 THEN 1680 

VTAB 12:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 12:HTAB 65:PRINT" 
";Y$:ELSE 1645 

IF Y$ = "J" THEN A(6) = 1:IF A(6) = 1 THEN E(1) = 1 
VTAB 15:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 15:HTAB 65:PRINT" 
";Y$:ELSE 1660 

IF Y$ = "N" THEN A(118) = 1 

IF Y$ = "N" THEN A(1) = 1 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig? <J/R>...\. 65" 

VTAB 23:HTAB 65:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 1685 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-":NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";:GOTO 1510 
VTAB 3:HTAB 65:PRINT" " 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
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we 


1715 


1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR Sl = 1 TO 100:NEXT S1:NEXT I 
CHAIN "MENUE" 


B.BAS: Einkünfte aus Land- und Forstwirtschaft 


1720 
1725 
1730 


1735 
1740 


1745 
1750 


1755 


_ 1760 


1765 
1770 
1775 
1780 


1785 
1790 


1795 
1800 
1805 


1810 
1815 


1820 
1825 


1830 
1835 


1840 
1845 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 
1890 


1895 
1900 


1905 
1910 


1915 


1920. 


1925 


1930 
1935 


1940 
1945 


1950 
1955 


1960 
1965 
1970 
1975 
1980 


1985 


1990 


48 


REM EINKUENFTE AUS LAND- UND FORSTWIRTWIRTSCHAFT 
COMMON A(), B(), C(), D(), E(), M(), NU 
HOME:PRINT"Einkúnfte aus Land- und Forstwirtschaft 
+" 


FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Gewinne : sämtliche Gewinne ......... 
<a DM..." 

PRINT"darin ona : nach Par.14.14a ESTG 


FRE <in DM> ..." 

PRINT"Angabe der Ermäßigung : 1. Betr.: Gewinn 83/84 
pos REED MG 

PRINT" — dito — : 1. Betr.: Anteil am Betrag. <in 
DU> 0" 

PRINT" - dito - : 2. Betr.: Gewinn 83/84 .... <in 
1 2 

PRINT" — dito —- : 2. Betr.: Anteil am Betrag. <in 
DD..." 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—": NORMAL 


VTAB 7:HTAB 65: INPUT"",A(15) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
WAR ¡A (15) 

HTAB 65: INPUT"",A(16) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
A (16) 

IF A(15) = 0 THEN 1840 

HTAB 65:INPUT"",A(103) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
A (103) 

HTAB 65: INPUT"",A(104) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65: PRINT USING 
ee" A (104) 

HTAB 65: INPUT"",A(105) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 
"A (105) 

HTAB 65: INPUT"",A(106) 

VTAB 12:HTAB 65:PRINT" ":VTAB,12:HTAB 65:PRINT USING 
"A (106) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... ";:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 1840 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
1775 
VTAB 3:HTAB 65:PRINT SPC(15) 


IF A(1) = 1 THEN 1985: 

IF A(118) = 1 THEN 1985 

VTAB 22:PRINT SPC(79):HTAB 79:PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <——": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 
SPC(10):VTAB 9:HTAB 70:PRINT SPC(10) 

VTAB 10:HTAB 70:PRINT SPC(10):VTAB 11:HTAB 70:PRINT 
SPC(10):VTAB 12:HTAB 70:PRINT SPC(10) À 

VTAB 7:HTAB 65:INPUT"",B(15) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
HB (15) 

HTAB 65: INPUT"",B(16) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
akk ;B (16) 

IF B(15) = 0 THEN 1960 

HTAB 65:INPUT"",B(103) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
ket" :B(103) 

HTAB 65:INPUT"",B(104) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
"EFEEEEFEFEEFEFE" ; B( 104) 

HTAB 65: INPUT"",B(105) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 
ch" > B( 105) 

HTAB 65: INPUT"",B(106) $ 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65:PRINT USING 
HH" ;B (106) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N> .... "::GET ES 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 1960 : 


IF E$ = "N" THEN VTAB 3:HTAB 65:INVERSE:PRINT"-> 
KORREKTUR <-" : NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
1895 
VTAB 3:HTAB 65:PRINT" " 


FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
l TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 

+. «+ "¡FOR S1 = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


C.BAS: Einkünfte aus Gewerbebetrieb 


1995 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 


2040 
2045 


2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2090 


2095 
2100 


2105 
2110 


2115 
2120 
2125 
2130 
2135 


2140 


2145 


REM EINKUENFTE AUS GEWERBEBETRIEB 

COMMON A(), B(), C(), D(), E(), M(), N() 

HOME : PRINT"Einkinfte aus dem Gewerbebetrieb :" 

FOR I = 1 TO 79:PRINT"-"; :NEXT I:PRINT 

VTAB 7:PRINT"Gewinne : säutliche GEWINDE e e A 

“in Deo >." 

PRINT"darin Veräußerungen : nach Par.16 u. 17 ESTG 
DO oh 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <——": NORMAL 

VTAB 7:HTAB 65: INPUT"",A(20) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

"A (20) 

HTAB 65: INPUT"",A(21) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 

Makk"; A(21) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 

richtig: %. <J/N> .....";:GET ES 

IF E$ = "J" OR ES = "N" THEN VTAB 23:HTAB 65:PRINT" 

";E$:ELSE 2050 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" :NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 2030 

VTAB 3:HTAB 65: PRINT SPC(15) 

IF A(l) = 1 THEN 2140 

VTAB 22:PRINT SPC(79):HTAB 79:PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <-—": NORMAL 

VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 

SPC(10) 

VTAB 7:HTAB 65: INPUT"",B(20) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

HB (20) 

VTAB 8:HTAB 65: INPUT"",B(21) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 

eh" ;B (21) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 

richtig ? <J/N> .... "::GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 

";:E$:ELSE 2115 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
2095 

VTAB 3:HTAB 65:PRINT SPC(15) 


FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


D.BAS: Einkünfte aus selbständiger Arbeit 


2150 
2155 
2160 
2165 
2170 


2175 
2180 
2185 
2190 
2195 
2200 


2205 
2210 


2215 
2220 


2225 
2230 


2235 
2240 
2245 
2250 
2255 
2260 
2265 


2270 
2275 


REM EINKUENFTE AUS SELBSTAENDIGER ARBEIT 


HOME: PRINT"Einkünfte aus selbständiger Arbeit :" 

FOR I = 1 TO 79:PRINT"-";:NEXT I:PRINT 

VTAB 7:PRINT"Gewinn : aus freiberuflicher Arbeit <in 

D>" 

PRINT"Gewinn : aus sonstiger Tätigkeit ... <in DM> 
¿$ 

PRINT"Werbungskosten : angefallene Werbungskosten 


CHAD? n 

PRINT"dar.VerdúBerunga-Gew. : nach Par.18 Abs.3 ESTG 
JØDE AGN | 

VTAB 4:HTAB 65: INVERSE: PRINT"-—-> EHEMANN <——": NORMAL 

VTAB 7:HTAB 65:INPUT"",A(25) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

UFEEPEPEREE PEELE" > A (25) 

HTAB 65:INPUT"",A(26) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 

DAA HEHEHE" > A (26) 

HTAB 65: INPUT"",A(27) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 

MARA: A (27) 

HTAB 65: INPUT"",A(28) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65: PRINT USING 

A (28) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 

richtig ? <J/N> .... ";:GET ES 

IF E$ = "J" OR EG = "N" THEN VTAB 23:HTAB 65:PRINT" 

";E$:ELSE 2235 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-": NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
2195 
VTAB 3:HTAB 65:PRINT SPC(15) 


IF A(1) = 1 THEN 2345 

VTAB 22:PRINT SPC(79):HTAB 79:PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <--": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 
SPC(10):VTAB 9:HTAB 70:PRINT SPC(10):VTAB 10:HTAB 
70:PRINT SPC(10) 


2280 
2285 


2290 
2295 


2300 
2305 


2310 
2315 


2320 


2325 





2540 
2545 
2550 
2555 


2560 


VTAB 7:HTAB 65:INPUT"",B(25) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

Uke ; B (25) 

HTAB 65:INPUT"",B(26) . 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 

eh" ;B (26) 

HTAB 65: INPUT"",B(27) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 

eh" ;B (27) 

HTAB 65: INPUT"",B(28) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 

eh" ;B (28) 

VTAB PREEN AURREI OE : sind alle Angaben 

riohtig ? <J/N>....: :GET E$ 

IF E$ = "J" OR E$ = "y" THEN VTAB 25: HTAB 65:PRINT" 

";E$:ELSE 2320 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ";:GOTO 

2280 

VTAB 3:HTAB 65:PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 
.":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


AS: Einkünfte aus nichtselbständiger Tätigkeit 


REM EINKUENFTE AUS NICHTSELBSTAENDIGER TAETIGKEIT 
COMMON A(), B(), C(), D(), E(), M(), N() 
HOME: PRINT"Einkünfte aus nichtselbständiger Arbeit 


«MH 


FOR I = 1 TO 79:PRINT"-";:NEXT I:PRINT 

en T PRINT"Brutto-Arbeitslohn : 1fd. Arbeitslohn 

EN A “in: OS... 

PRINT BESAGT $ Versorgungsbezüge pg ek <in DM> 
" > 

PRINT"Kosten : Werbungskosten ............ <in DM> 
" \ E 

PRINT"Betráge fúr : ALG, SWG, KUG oder ALB .... <in 

DAA 


VTAB 4:HTAB 65: INVERSE: PRINT"-—> EHEMANN <——": NORMAL 
VTAB 7:HTAB 65: INPUT"",A(30) ; 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
Md"; A(30) 

VTAB 8:HTAB 65: INPUT"",A(31) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
eh", A(31]) 

VTAB 9:HTAB 65:INPUT"",A(32) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
WAR ARA RR A(32) 

VTAB 10:HTAB 65: INPUT"",A(67) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
A (67) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
riohtie 9 <I/N> 7. "¿GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 2440 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-":NORMAL > 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 2400 
VTAB 3:HTAB 65:PRINT SPC(15) . 

IF A(l) = 1 THEN 2555 

VTAB 22:PRINT SPC(79):HTAB 79:PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <-—": NORMAL 
VTAB 7:HTAB 70: PRINT ENTER 8:HTAB 70: PRINT 
SPC(10) 

VTAB 9:HTAB 70:PRINT SPC(10): VTAB 10:HTAB 70: PRINT 
SPC(10) 

VTAB 7:HTAB 65:INPUT"",B(30) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
tt" BB (Z0) 

VTAB 8:HTAB 65: INPUT"",B(31) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
WAR" B(31) 

VTAB 9:HTAB 65: INPUT"",B(32) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
NS te EE EH HH tH He" > BBQ) 

VTAB 10:HTAB 65: INPUT"",B(67) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
HB (67) 

VTAB A ee eee eet : Sind alle Angaben 
richtig ? <J/N> .... :GET E$ 

IF E$ = "J" OR E$ = "y" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 2530 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

IF ES = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO ' 
2490 

VTAB 3:HTAB 65:PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 
...":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


F.BAS: Einkünfte aus Kapitalvermögen 


2565 
2570 
2575 
2580 
2585 
2590 
2595 
2600 
2605 


2610 
2615 


2620 
2625 
2630 
2635 
2640 
2645 
2650 
2655 
2660 


2665 
2670 


2675 
2680 


2685 
2690 
2695 
2700 
2705 


2710 


2715 


2720 
2725 
2730 


2735 
2740 


2745 
2750 
2755 
2760 
2765 
2770 
2775 
2780 
2785 
2790 
2795 
2800 
2805 
2810 
2815 
2820 
2825 
2830 
2835 
2840 
2845 


2850 


REM EINKUENFTE AUS KAPITALVERMOEGEN 

COMMON A(), B(), C(), D(), E(), M(), NO 

HOME: PRINT"Einkúnfte aus Kapitalvermögen :" 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 7:PRINT"Einnahmen : aus dem Kapitalvermögen ... 

LA DE ¿A 

PRINT"Werbungskosten : durch das Kapitalvermögen . 

ED DES U 

VTAB 4:HTAB 65: INVERSE: PRINT"-—> EHEMANN <-—": NORMAL 

VTAB 7:HTAB 65: INPUT"",A(35) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

DARA ¡A (35) 

HTAB 65: INPUT"",A(36) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 

DARA ; A (36) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 

riohtig % <J/N> .: 0: : GET: ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 

";E$:ELSE 2620 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 2600 

VTAB 3:HTAB 65:PRINT SPC(15) 

IF A(1) = 1 THEN 2710 

VTAB 22:PRINT SPC(79): HTAB 79: PRINT" M 

VTAB 4:HTAB 65: INVERSE: PRINT'"--> EHEFRAU <-—": NORMAL 

VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70: PRINT 

SPC(10) / 

VTAB 7:HTAB 65: INPUT"",B(35) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

"abet a dt tt ot sb ot kt ot ee SB (35) 

HTAB 65: INPUT"",B(36) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 

"abe se dt dt a ot tt ot ot ot te Ee" > B (BE ) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 

richtige: 7 SJINA . 00.5%: GET: ES 

IF E$ = "J" OR EG = "N" THEN VTAB 23:HTAB 65: PRINT" 

";E$:ELSE 2685 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ";:GOTO 

2665 

VTAB 3:HTAB 65:PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


G.BAS: Einkünfte aus Vermietung und Verpachtung 


REM EINKUENFTE AUS VERMIETUNG UND VERPACHTUNG 

COMMON A(), B(), C(), D(), E(), M(), N() 

HOME: PRINT"Einkünfte aus Vermietung und Verpachtung 
";:HTAB 69: INVERSE: PRINT"SEITE 1" :NORMAL 

FOR I = 1 TO 79:PRINT"-";:NEXT I:PRINT 

VTAB 7:PRINT"Einheitswert : 

selbstgen.Haus/Eigentumsw. <in DM> ..." 

PRINT"Wohnzwecke : Wohnnutzung ............... <in % 

> NT 

PRINT"Selbstnutzung : Wohnnutzung in Monaten . 

<in MM> .,." 


PRINT"Schuldzinsen : vor der Selbstnutzung ..... <in 

PI A 

PRINT"Schuldzinsen : bei Selbstnutzung ......... <in 

DS A 

PRINT"A F A (insgesamt) : Absetzung fúr Abnutzung 
IR. DEP Ga 


PRINT: PRINT"Wurde der Antrag auf Pee nach 
dem 30.09.82 einge-" 

PRINT"reicht u. das Gebåude bis 01.01.83 
fertiggestellt . <J/N> ...." 

PRINT: PRINT"sonstige Mieteinnahmen: andere 
Häuser/Wohnungen ... <in DM> ..." 
PRINT"Werbungskosten : insgesamte Werbungskosten . 
<0 Die 3% 

VTAB 4:HTAB 65: INVERSE: PRINT"——> EHEMANN <——": NORMAL 
VTAB 7:HTAB 65: INPUT"",A(40) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
"A (AO) 

VTAB 8:HTAB 65:INPUT"",A(41) 

IF A(41) > 100 THEN 2805 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65: PRINT: USING 
ec ; A (41) 

VTAB 9:HTAB 65:INPUT"",A(42) 

IF A(42) > 12 THEN 2820 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65: PRINT USING 
Vee et tH Ht tH EH Ht": A (42 ) 

IF A(42) > 12 THEN 2820 

HTAB 65: INPUT"",A(43) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
PPE EH HE HH HH HH HE > A (4S ) 

HTAB 65:INPUT"",A(44) 


49 


2855 


2860 
2865 


2870 
2875 


2880 


2885 


2890 


2895 
2900 


2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 


2960 
2965 


2970 
2975 
2980 
2985 
2990 
2995 


3000 
3005 


3010 
3015 


3020 
3025 


3030 
3035 


3040 
3045 
3050 


3055 
3060 


3065 
3070 
3075 
3080 


3085 
3090 


3095 
3100 


3105 
3110 
3115 
3120 
3125 
3130 
3135 
3140 
3145 
3150 
3155 


3160 


50 


VTAB 11:HTAB 65:PRINT" ":VTAB 11:HTAB 65:PRINT USING 
A (44) 

HTAB 65: INPUT"",A(45) 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65:PRINT USING 
A (45) 

VTAB 15:HTAB 65:GET Y$ 

IF Y$ =- "J" OR Y$ = "N" THEN VTAB 15:HTAB 65: PRINT" 
";Y$:ELSE 2870 

IF Y$ = "J" THEN A(49) = 

VTAB 17:HTAB 65: INPUT"",A(46) 

VTAB 17:HTAB 65:PRINT" ":VTAB 17:HTAB 65:PRINT USING 
WA AAA" ¡A (46) 

HTAB 65: INPUT"",A(47) 

VTAB 18:HTAB 65:PRINT" ":VTAB 18:HTAB 65:PRINT USING 
A (AT) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig 4 I/N>:.... "GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 2905 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" :NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ";:GOTO- 
2795 
VTAB 3:HTAB 65: PRINT SPC(15) 


IF A(1) = 1 THEN 3090 

VTAB 22:PRINT SPC(79):HTAB 79:PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <-——": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70: PRINT 
SPC(10):VTAB 9:HTAB 70:PRINT SPC(10) 

VTAB 10:HTAB 70:PRINT SPC(10):VTAB 11:HTAB 70:PRINT 
SPC(10):VTAB 12:HTAB 70:PRINT SPC(10) 

VTAB 15:HTAB 70:PRINT SPC(10):VTAB 17:HTAB 70:PRINT 
SPC(10):VTAB 18:HTAB 70:PRINT SPC(10) . 
VTAB 7:HTAB 65: INPUT"",B(40) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
HB (AO) 

VTAB 8:HTAB 65: INPUT"",B(41) 

IF B(41) > 100 THEN 2970 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
"Met" B(41) 

VTAB 9:HTAB 65: INPUT"" ,B(42) 

IF B(42) > 12 THEN 2985 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
WAR B (42) ` 

HTAB 65: INPUT"",B(43) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
UFEFEFEFEFEFEFEF" :B (43) 

HTAB 65:INPUT"",B(44) 

VTAB 11:HTAB 65:PRINT" ":VTAB 11:HTAB 65:PRINT USING 
VAR RA AAA RA" B (44) 

HTAB 65: INPUT"",B(45) 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65: PRINT USING 
NEEEPEFEEEEEEFEE" > B45 ) 

VTAB 15:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 15:HTAB 65: PRINT" 
":Y$:ELSE 3030 

IF Y$ = "J" THEN B(49) = 

VTAB 17:HTAB 65: INPUT", B( 46) 

VTAB 17:HTAB 65:PRINT" ":VTAB 17:HTAB 65:PRINT USING 
NEEEEESEEPEPEPEL BAG) 

HTAB 65: INPUT"",B(47) 

VTAB 18:HTAB 65:PRINT" ":VTAB 18:HTAB 65:PRINT USING 
"EEEEFEFEFEEFEFE" ; B (47) 

VTAB 23: Pen Leg : sind alle Angaben 
richtig 7 ED ee. . :GET E$ 

IF E$ = "J" OR E$ = "y" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 3065 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-":NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
2960 
VTAB 3:HTAB 65:PRINT SPC(15) 


HOME : PRINT"Einkinfte aus Vermietung und Verpachtung 
"; :HTAB 69:INVERSE:PRINT"SEITE 2":NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7: PRINT"Erhöhte Absetzungen : nach Par. 7b ESTG 

EN a ee IN A 

PRINT:PRINT"Erfolgte der Bauantrag oder der Beginn 

der Bauarbeiten oder" 

PRINT"der Erwerb des Vertrages nach dem 29.07.1981 

Ba na ANG N. at 

VTAB 4:HTAB 65: INVERSE: PRINT'-——> EHEMANN <——" 

VTAB 5:HTAB 65: PRINT"--> EHEFRAU <——": NORMAL 

VTAB 7:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65:PRINT" 

":Y$:ELSE 3125 

IF Y$ = "N" THEN 3155 

VTAB 10:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 10:HTAB 65: PRINT" 

";Y$:ELSE 3140 

IF Y$ = "J" THEN A(48) = A(4) - 1:IF A(48) <= 0 

THEN A(48) = 

VTAB 23: dk ni, et faa : sind alle Angaben 

richtig ? <J/N> .... :GET E$ 

IF E$ = "J" OR E$ = "y" THEN VTAB 23:HTAB 65: PRINT" 

";E$:ELSE 3155 


3165 IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-—> 
KORREKTUR <—": NORMAL 

3170 IF EG = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
3125 

3175 FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

3180 CHAIN "MENUE" 


H.BAS: Sonstige Einkünfte 


3185 REM SONSTIGE EINKUENFTE 
3190 COMMON A(), B(), C(), D(), E(), M(), N() 
3195 HOME:PRINT"Sonstige Einkúnfte :" 


3200 FOR I = 1 TO 79:PRINT"-";:NEXT I:PRINT 

3205 VTAB 7:PRINT"Einnahmen : nach Par.22 Nr.l u. la <in 
DM> ..." 

3210 PRINT"Werbungskosten : auf die Einnahmen ..... <in 
A aR 

3215 PRINT"Einnahmen : sonstige Einnahmen .... <in DM> 


3220 PRINT"Werbungskosten : auf sonstige Einnahmen <in 
+ AS 

3225 VTAB 4:HTAB 65: INVERSE : PRINT"—-> EHEMANN <——": NORMAL 

3230 VTAB 7:HTAB 65:INPUT"",A(50) 

3235 VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
VEEEEFEEEEEFEFEE" | A( 50) 

3240 HTAB 65:INPUT"",A(51) 

3245 VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
Makk" ; A (51) 

3250 HTAB 65:INPUT"",A(52) 

3255 VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
Make ¡A (52) 

3260 HTAB 65: INPUT"",A(53) 

3265 VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
makk ; A (53) 

3270 VTAB 23 :PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... ";:GET E$ 

3275 IF E$ = "J" OR ES = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 3270 

3280 IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

3285 IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 3230 

3290 VTAB 3:HTAB 65: PRINT SPC(15) 

3295 IF A(1) = 1 THEN 3380 

3300 VTAB 22:PRINT SPC(79):HTAB 79:PRINT" " 

3305 VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <--": NORMAL 

3310 VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 
SPC(10):VTAB 9:HTAB 70:PRINT SPC(10):VTAB 10:HTAB 
70:PRINT SPC(10) 

3315 VTAB 7:HTAB 65:INPUT"",B(50) 

3320 VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
VEEEEEFEFEFEFEFE" :B (50) 

3325 HTAB 65:INPUT"",B(51) 

3330 VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
NEFEPEPEEEEE :B (51) 

3335 HTAB 65:INPUT"",B(52) 

3340 VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
VEEEEEEEEEEEEHE ; B (52) 

3345 HTAB 65:INPUT"",B(53) 

3350 VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65: PRINT USING 
makk ; B (53) 

3355 VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
viohtie: 7 IND 2 + GET ES 

3360 IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 3355 

3365 IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-"': NORMAL 

3370 IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";:GOTO 3315 

3375 VTAB 3:HTAB 65:PRINT SPC(15) 

3380 FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 
...":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

3385 CHAIN "MENUE" 


I.BAS: Doppelbesteuerungsabkommen und auBer- 
ordentliche Einkünfte 


3390 REM DOPPELBESTEUERUNGSABKOMMEN UND AUSSERORDENTLICHE 
EINKUENFTE 

3395 COMMON A(), B(), C(), D(), E(), M(), N() 

3400 HOME: PRINT"Doppelbesteuerungsabkommen u. 
außerordentliche Einkünfte :" 


3405 FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

3410 VTAB 7:PRINT"Steuerfrei : nach Doppelbesteurungsabk. 
“16. DM 244" 

3415 PRINT"darin Einkünfte : außerordentliche Einkünfte 
LIM DUS caan 

3420 PRINT"Entschádigungen : nach Par.24 Nr.1 ESTG ..... 
CID DMA a aT 

3425 PRINT"Nutzungsvergütungen : nach Par.24 Nr.3 ESTG 
aut, SiO- DMS: SN 


3430 VTAB 4:HTAB 65: INVERSE: PRINT"-—> EHEMANN <-—"': NORMAL 
3435 VTAB 7:HTAB 65: INPUT"",A(65) 


3440 


3445 
3450 


3455 
3460 


3465 
3470 


3475 
3480 
3485 
3490 
3495 
3500 
3505 


3510 
3515 


3520 
3525 


3530 
3535 


3540 
3545 


3550 
3555 


3560 
3565 
3570 
3575 


3580 
3585 


3590 


VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
"EEEEEEEEEEEE EEE" > AES ) 

HTAB 65:INPUT"",A(66) ' 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
A (66) 

HTAB 65: INPUT"",A(60) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
"SEEEEEPEEEEEEEL" > A (GO ) 

HTAB 65: INPUT"",A(61) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65: PRINT USING 
ee A (6) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 


ridbtig 7 <J/N> 2 ORT Bs 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 3475 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"—> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 3435 
VTAB 3:HTAB 65:PRINT SPC(15) 

IF A(l) = 1 THEN 3585 

VTAB 22:PRINT SPC(79):HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <-—": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70: PRINT 
SPC(10):VTAB 9:HTAB 70: PRINT, SPC(10) : VTAB 10:HTAB 
70:PRINT SPC(10) 

VTAB 7:HTAB 65: INPUT"",B(65) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
"EEEEFEEEFEFEFEE" ; BGS ) 

HTAB 65: INPUT"",B(66) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
MAR"; B(66) 

HTAB 65: INPUT"",B(60) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
eh" ;B (60) 

HTAB 65: INPUT"",B(61) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
eh" ;B (61) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... ";:GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 3560 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" "::GOTO 3520 
VTAB 3:HTAB. 65:PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
l TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR SI = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


J.BAS: Sonderausgaben 


3595 
3600 
3605 


3610 
3615 
3620 
3625 


3630 
3635 


3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 


3685 
3690 


3695 
3700 
3705 
3710 


3715 
3720 


3725 
3730 


3735 


REM SONDERAUSGABEN 

COMMON A(), B(), C(), D(), E(), M(), N() 

HOME: PRINT"Sonderausgaben : ";:HTAB 

69: INVERSE: PRINT"SEITE 1": NORMAL 

FOR I = 1 TO 79:PRINT"-";:NEXT I:PRINT 

VTAB 6:HTAB 65: INVERSE: PRINT"--> EHEMANN <--": NORMAL 

VTAB 7:PRINT"Arbeitnehmer-Anteil : zur ges. 

Rentenversicherung <in DM> ..." 

PRINT" Arbeitgeber —Anteil : zur ges. 

Rentenversicherung <in DM> ..." 

PRINT:HTAB 65: INVERSE: PRINT"--> EHEFRAU <——": NORMAL 

PRINT"Arbeitnehmer-Anteil : zur ges. 

Rentenversicherung <in DM> ..." 

PRINT"Arbeitgeber -Anteil : zur ges. 

Rentenversicherung <in DM> ..." 

PRINT:HTAB 65: INVERSE: PRINT"-—> EHEMANN <-—" 

HTAB 65:PRINT"-——> EHEFRAU <——": NORMAL 

PRINT"Sonderausgaben : unbeschränkt, ohne Spenden 

CIN DH» ss" 

PRINT"Vorsorgeaufwendungen : abzugsfåhige 

Versicherungen <in DM> ..." 

PRINT"Bausparbeitráge : lt. Bausparvertrag <in DM> 
" 

IF (A(30) + A(31)) = 0 THEN 3695 

VTAB 7:HTAB 65:INPUT"",A(72) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 

VEPEEEEEEELEFEEE" ; A (72) 

HTAB 65:INPUT"";A(73) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 

A (73) 

IF A(l) = 1 THEN 3725 

IF (B(30) + B(31)) = 0 THEN 3725 

VTAB 11:HTAB 65:INPUT"",B(72) 

VTAB 11:HTAB 65:PRINT" ":VTAB 11:HTAB 65:PRINT USING 

"Sb se est RE" ¡B (72) 

HTAB 65: INPUT"",B(73) 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65:PRINT USING 

HB (73) 

VTAB 16:HTAB 65: INPUT"",A(70) 

VTAB 16:HTAB 65:PRINT" ":VTAB 16:HTAB 65:PRINT USING 

WAR RR" ¡A (70) 

HTAB 65: INPUT"",A(71) 


3740 


3745 
3750 


3755 
3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 
3800 


3805 


3810 


3815 


3820 


3825 


3830 
3835 


3840 
3845 


3850 


3855 
3860 


3865 
3870 


3875 
3880 
3885 


3890 
3895 


3900 
3905 
3910 
3915 
3920 
3925 


3930 
3935 


3940 
3945 
3950 
3955 
3960 
3965 
3970 
3975 
3980 
3985 


3990 
3995 


4000 
4005 
4010 


4015 
4020 


4025 
4030 


4035 


VTAB 17:HTAB 65:PRINT" ":VTAB 17:HTAB 65: PRINT USING 
"A (71) 

HTAB 65:INPUT"",A(74) 

VTAB 18:HTAB 65:PRINT" ":VTAB 18:HTAB 65:PRINT USING 
+" A (74) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig: 9 J/N> 2... "GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 3755 

IF E$ = "N" THEN VTAB 5:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";: GOTO - 
3670 

HOME: PRINT"Sonderausgaben : ";:HTAB 

69: INVERSE : PRINT"SEITE 2":NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I:PRINT 

VTAB 4:HTAB 65: INVERSE: PRINT"-—> EHEMANN <-——" 

HTAB 65: PRINT"--> EHEFRAU <-—": NORMAL 

VTAB 6:PRINT"Spenden : an politische Parteien .... 
«in Dl.” 

PRINT"sonstige Spenden : an andere Institutionen ... 
A A 

PRINT:PRINT"Sind in den sonstigen Spenden auch 
Spenden für wissenschaft-" 

PRINT"liche, staatspolitische u. als besonders 
förderungswirdig" 

PRINT"anerkannte Zwecke ? Bitte die Höhe angeben 

cheese ot <in DM> ..." 

PRINT:HTAB 30: INVERSE: PRINT"WAHLRECHT" : NORMAL 
PRINT"Sie kónnen die Begrenzung des Spendenabzugs 
wáhlen :" 

PRINT" <A> 5 % des Gesamtbetrages der Einkünfte" 
PRINT" <B> 2 v.T. der Summe der gesamten Löhne u. 
Gehälter" 

PRINT'"--> <B> gilt nur für Arbeitgeber" 

PRINT: PRINT"Bitte wählen Sie <A> oder <B> 

RR A EA ER «AD DM 

PRINT:PRINT"Es folgt nun die Gesamtsumme der Löhne 
u. Gehälter <in DM> ..." 

VTAB 6:HTAB 65: INPUT"",A(76) 

VTAB 6:HTAB 65: PRINT" ":VTAB 6:HTAB 65:PRINT USING © 
"EEHEEHE E E +++"; A(76) 

HTAB 65:INPUT"",A(75) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
" Stes tt tet tH Ht HH te HE" > A ('75 ) = 

IF A(75) = 0 THEN 3915 

VTAB 11:HTAB 65:INPUT"",A(78) 

VTAB 11:HTAB 65: PRINT" '":VTAB 11:HTAB 65: PRINT USING 
A (78) 

VTAB 19:HTAB 65:GET Y$ 

IF Y$ = "A" OR Y$ = "B" THEN VTAB 19:HTAB 65: PRINT" 
";Y$:ELSE 3890 

IF Y$ = "A" THEN 3915 

VTAB 21:HTAB 65:INPUT"",A(77) 

VTAB 21:HTAB 65:PRINT" ":VTAB 21:HTAB 65:PRINT USING 
VAR" ¡A (77) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig ? <I/N>..... ";:GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 3915 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"—> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" "::GOTO 3855 
HOME: PRINT"Sonderausgaben : ";:HTAB 

69: INVERSE: PRINT"SEITE 3": NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 5:HTAB 65: INVERSE:PRINT"-—> EHEMANN <——" 

HTAB 65:PRINT"--> EHEFRAU <——": NORMAL 

VTAB 8:PRINT"Verlustabzug : Verlust der Einkünfte 


SE hir INS: A 
PRINT"Verlust '80 : für das Jahr 1980 ......... <in 
DM> .,." 

PRINT"Verlust '81 : für das Jahr. 1981 ......... <in 
DNS. SER, 

PRINT"Verlust '82 : für das Jahr 1982 ......... <in 
DM> 27," 

PRINT"Verlust '83 : für das Jahr 1983 ......... <in 
DM> .„.;" 

PRINT"Verlust '85 : fiir das Jahr 1985 ......... <in 
i>: 0" 

PRINT"Verlust '86 : für das Jahr 1986 ......... <in 
DIA 


VTAB 8:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 8:HTAB 65: PRINT!" 
";Y$:ELSE 3990 

IF Y$ = "N" THEN 4065 

HTAB 65: INPUT"",A(80) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
VEFEEEEREEEEEEFE" > A (80) 

HTAB 65: INPUT"",A(81) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
WAR RA RE" A (81) 

HTAB 65: INPUT"",A(82) 

VTAB 11:HTAB 65:PRINT" ":VTAB 11:HTAB 65:PRINT USING 
VEFEEREEEEEEEEEE" > A (82) 

HTAB 65: INPUT"",B(79) 


91 


4040 


4045 
4050 


4055 
4060 


4065 
4070 
4075 
4080 
4085 


4090 


4095 


VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65:PRINT USING 

Mb"; B(79) | 

HTAB 65: INPUT"",B(80) 

VTAB 13:HTAB 65:PRINT" ":VTAB 13:HTAB 65:PRINT USING 

Takket ; B (80) 

HTAB 65:INPUT"",B(81) À 

VTAB 14:HTAB 65:PRINT" ":VTAB 14:HTAB 65:PRINT USING 

BL] ) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 

richtig ? <J/N> .... ";:GET ES' 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 

";E$:ELSE 4065 

IF E$ = "N" THEN VTAB 4:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";: GOTO 

3990 

VTAB 3:HTAB 65:PRINT SPC(15)- 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 
..":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


K.BAS: Außergewöhnliche Belastungen 


4100 
4105 
4110 


4115 
4120 


4125 
4130 
4135 
4140 
4145 
4150 
4155 


4160 
4165 


4170 
4175 


4180 
4185 


4190 
4195 
4200 
4205 
4210 
4215 
4220 
4225 
4230 
4235 
4240 
4245 
4250 
4255 
4260 
4265 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 


4315 
4320 


52 


REM AUSSERGEWOEHNLICHE BELASTUNGEN 

COMMON A(), B(), C(), D(), E(), M(), N() 

HOME: PRINT"Außergewöhnliche Belastungen :";:HTAB 
69: INVERSE : PRINT"SEITE 2": NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Aufwendungen : nach Par.33 

å ere tee <in DM ..." 

PRINT"Aufwendung / DDR : Pakete, Päckchen, Besuch .. 
In DD" 

PRINT"Aufwendung / Haushalt ': Gehilfin, Heim, Pflege 
urn DD s a 

PRINT"Anzahl der Kinder : mit Unterhaltszahlungen . 
ME deg, | 

VTAB 4:HTAB 65:INVERSE:PRINT"--> EHEMANN <—" 

HTAB 65: PRINT"-—> EHEMANN <——": NORMAL 

VTAB 7:HTAB 65:INPUT"",A(85) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65:PRINT USING 
takke > A (85) 

HTAB 65:INPUT"",A(86) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
makskdkdkkk kuk > A (BE) 

HTAB 65: INPUT"",A(88) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
DARA": A (88) 

HTAB 65: INPUT"",A(89) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
ee A (89) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... ";:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 4190 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";: GOTO 
4150 

HOME: PRINT"Außergewöhnliche Belastungen : ";:HTAB 
69: INVERSE: PRINT"SEITE 2" : NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I:PRINT 

U=0 


VTAB 7:PRINT"Sind Aufwendungen fir Unterhalt oder 
Berufsausbildung fur" 

PRINT"Personen entstanden, fir die kein Anspruch 
auf" ; 

PRINT"Kindergeld bestand ? 


er KA Gå SEE Dl A AS o aia Sapte. Se eps, 

PRINT: PRINT"Personen —.Nr. : automatische Anzeige 
Me gr ERBE se 

PRINT"Aufwendung : Höhe des Unterhalts ....... <in 
DE» 150" 

PRINT"Unterhaltsaufwendung : dritter Personen 
Ped ae De 00" 


PRINT"Einkünfte u. Löhne : für die unterstützte 

Person <in DM> ..." 

PRINT"Zeitraum : Unterstútzungszeit (Mon.) . <in MM> 
" 

VTAB 4:HTAB 65: INVERSE: PRINT"-—-> EHEMANN <—" 

HTAB 65: PRINT"--> EHEFRAU <-—-": NORMAL 

VTAB 9:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 9:HTAB 65: PRINT" 

":Y$:ELSE 4275 


U=0 
IF Y$ = "N" THEN 4475 
U=U+1 


VTAB 11:HTAB 78:PRINT U 

VTAB 12:HTAB 65: INPUT", U1 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65:PRINT USING 
U 

HTAB 65:INPUT"",U2 

VTAB 13:HTAB 65:PRINT" ":VTAB 13:HTAB 65:PRINT USING 
VEEFEEEEEEEEREEE | | UZ 


4325 
4330 


4335 
4340 
4345 


4350 
4355 
4360 
4365 
4370 
4375 
4380 


4385 


4390 
4395 
4400 


4405 
4410 


4415 
4420 
4425 
4430 


4435 
4440 
4445 
4450 
4455 
4460 
4465 
4470 
4475 


4480 
4485 


4490 
4495 
4500 
4505 
4510 
4515 
4520 


4525 
4530 
4535 
4540 


4545 
4550 
4555 
4560 
4565 
4570 


4575 
4580 
4585 


4590 
4595 


4600 
4605 


4610 
4615 


4620 
4625 
4630 


4635 
4640 
4645 
4650 


4655 
4660 


4665 


HTAB 65: INPUT"",U3 

VTAB 14:HTAB 65:PRINT" ":VTAB 14:HTAB 65:PRINT USING 
U 

VTAB 15:HTAB 65: INPUT"", U4 

IF U4 > 12 THEN 4335 

VTAB 15:HTAB 65:PRINT" ":VTAB 15:HTAB 65:PRINT USING 
"UA 
IF (Ul + U2 = 0) THEN 4380 


UU = 3600: IF Ul < 3600 THEN UU = Ul 
U5 = UU * Ul / (Ul + U2) boars 
U6 = U3 — 4200:IF U6 < 0 THEN U6 = 0 
U7 = INT ((U5 - UG) * U4/12):IF U7 < 0 THEN U7 = 0 


A(90) = A(90) + U7 

VTAB 17:PRINT"Abzugsfáhig fúr : Berechnung fúr 
a AS NA "; :HTAB 65:PRINT USING 
makk: ; UT 

VTAB 18:PRINT"Abzugsfähig insgesamt : Berechnung für 
ALLE Porsonen LL esse: ";: :HTAB 65:PRINT USING . 
NSPPEPEEE EEE HE ERE > A (QO) 
Ul=0:U2=0 :U3=0 : U4= 0: US ="0 : U6 = O 
: U7 =0 : We=O j 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N> .... ";:GET-ES 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
"»E$:ELSE 4395 


IF E$ = "N" THEN A(90) = 0 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0TO 4275 
VTAB 3:HTAB 65:PRINT SPC(15) 

VTAB 23:HTAB 79: PRINT" " 

VTAB 23:PRINT"Unterstützung : weiterer Personen ? 
DENE A JAN li GET ES 

IF E$ = "N" THEN 4475 

VTAB 22:PRINT SPC(79) 

VTAB 12:HTAB 70:PRINT SPC(10) 

VTAB 13: HTAB 70:PRINT SPC(10) 

VTAB 14:HTAB 70:PRINT SPC(10) 

VTAB 15:HTAB 70:PRINT SPC(10) 


VTAB 17:HTAB 70:PRINT SPC(10) 

GOTO 4295 

HOME: PRINT"Außergewöhnliche Belastungen : ";:HTAB 

69: INVERSE : PRINT"SEITE 3":NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Ausbildungsfreibetrag : wurde einer 

beantragt ....... SIND 54" 

PRINT"Personen - Nr. : automatische Anzeige ........ 

Ke tse. 

PRINT"Anspruch Kindergeld : für diese Person * 

ER LACH Sl 59 

PRINT"Alter des Kindes : ist das Kind 18 Jahre alt ? 

KIN 4,5," 

PRINT"Wohnung d. Kindes : <A> Eltern, <B> auswärtig 
u alge 

PRINT"Einkúnfte d. Kindes : Bezüge, Lohn u. Gehalt 

ns <in DM> .." 

PRINT"BAFOEG : BAFOEG Betráge ............. <in DM> 
" 

PRINT"Kindergeldanspruch : im-18. Lebensjahr 


(Monate) . <in MM> .." 

VTAB 4:HTAB 65:INVERSE:PRINT"-—-> EHEMANN <-—" 

HTAB 65:PRINT"--> EHEFRAU <-—-":NORMAL 

VTAB 7:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65:PRINT" 
":Y$:ELSE 4520 


U=0 

IF Y$ = "N" THEN 4780 
U=U+1 

VTAB 8:HTAB 78:PRINT U 


VTAB 9:HTAB 65:GET U$ 

IF U$ = "J" OR U$ = "N" THEN VTAB 9:HTAB 65: PRINT" 
";U$:ELSE 4565 

IF U$ = "N" THEN 4685 

VTAB 10:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 10:HTAB 65: PRINT" 
";Y$:ELSE 4580 

VTAB 11:HTAB 65:GET U$ 

IF U$ = "A" OR U$ = "B" THEN VTAB 11:HTAB 65: PRINT" 
";U$:ELSE 4590 

VTAB 12:HTAB 65: INPUT"",Ul 

VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65:PRINT USING 
Makk ; U1 

HTAB 65: INPUT"",U2 

VTAB 13:HTAB 65:PRINT" ":VTAB 13:HTAB 65:PRINT USING 
makk ; U2 

VTAB 14:HTAB 65: INPUT'"",U3 

IF U3 > 12 THEN 4620 

VTAB 14:HTAB 65: PRINT" ":VTAB 14:HTAB 65:PRINT USING 
US 


IF Y$ = "N" AND U$ = "B" THEN UU = 900 
IF Y$ = "J" AND U$ = "A" THEN UU = 1200 
IF Y$ = "J" AND U$ = "B" THEN UU = 2100 


= Ul - 1200: IF U4 < 0 THEN U4 = 0 

U5 = UU - U4 - U2: IF U5 < O THEN U5 = 0 
U5 = INT (U5 » U3 / 12) 

A(91) = A(91) + U5 


4670 


4675 


4680 
4685 


4690 


4695 
4700 


4705 
4710 
4715 
4720 


4725 
4730 
4735 
4740 
4745 
4750 


- 4755 


4760 
4765 
4770 
4775 
4780 


4785 
4790 


4795 
4800 
4805 
4810 
4815 
4820 
4825 
4830 
4835 
4840 
4845 
4850 
4855 
4860 
4865 


4870 
4875 


4880 
4885 
4890 


4895 


4900 


4905 
4910 


4915 
4920 


4925 
4930 
4935 


4940 
4945 


4950 
4955 
4960 
4965 
4970 


4975 


VTAB 17:PRINT"Abzugsfähig für : Berechnung für 

og ÅR NM "; :HTAB 65:PRINT USING 
U 

VTAB 18: PRINT"Abzugsfähig insgesamt : Berechnung für 
alla POTRO io... "; :HTAB 65:PRINT USING 
makk ; A (91) 

UW = 0: Ul=0:U02=0: U3=0: V4=0: US = 
VTAB 23 :PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... ";:GET E$ 

IF E$ = "J" OR ES = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 4685 

IF E$ = "N" THEN A(91) = 0 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-—" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";:GOTO 4535 
VTAB 3:HTAB 65:PRINT SPC(15) 

VTAB 23:HTAB 79:PRINT" " 

VTAB 23:PRINT"Ausbildungsfreibetrag : weitere 
Freibetráge ? ...... STAN? 0 3 GET ES: 

IF E$ = "N" THEN 4780 

VTAB 22:PRINT SPC(79) _ 

VTAB 8:HTAB 70:PRINT SPC(10) 

VTAB 9:HTAB 70:PRINT SPC(10) 

VTAB 10:HTAB 70:PRINT SPC(10) 

VTAB 11:HTAB 70:PRINT SPC(10) 

VTAB 12:HTAB 70:PRINT SPC(10) 

VTAB 13:HTAB 70:PRINT SPC(10) 

VTAB 14:HTAB 70:PRINT SPC(10) 

VTAB 17:HTAB 70:PRINT SPC(10) 

GOTO 4555 

HOME: PRINT"Außergewöhnliche Belastungen : ";:HTAB 
69: INVERSE : PRINT"SEITE 4":NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I:PRINT 

VTAB 7:PRINT"Kórperbehinderte : Pauschbetrag n. 
PALIO 2" 

VTAB 10:PRINT"Erwerbsunfáhigkeit : Minderung 

E RA Asie tit 

PRINT" Erwerbsunfahigkeit : durch 
Blindheit/Hilfslosigk. <J/N> ...." 
PRINT"Hinterbliebenenbezug : laufender Bezug 

Fe Sl ¿AAA 

VTAB 15:PRINT"Erwerbsunfáhigkeit : Minderung 

re eg ea es ET I 
PRINT"Erwerbsunfåhigkeit : durch 
Blindheit/Hilfslosigk. <J/N> ...." 
PRINT"Hinterbliebenenbezug : laufender Bezug 

Das Heke ep by SINR an 

VTAB 4:HTAB 65:INVERSE:PRINT"--> EHEMANN <-—" 

VTAB 5:HTAB 65:PRINT'"-—-> EHEFRAU <—" 

VTAB 9:HTAB 65:PRINT"--> EHEMANN <-—" 

VTAB 14:HTAB 65: PRINT"—> EHEFRAU <-—" : NORMAL 

VTAB 7:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65:PRINT" 
";Y$:ELSE 4845 

IF Y$ ="N" THEN 4945 

VTAB 10:HTAB 65:INPUT"",A(93) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
WA AAA AAA AA AA A (93) 

VTAB 11:HTAB 65:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 11:HTAB 65: PRINT" 
";E$:ELSE 4870 

IF E$ = "J" THEN A(93) = 300 

VTAB 12:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 12:HTAB 65: PRINT" 
";Y$:ELSE 4885 

IF Y$ = "J" THEN A(94) = 1 

IF A(1) = 1 THEN 4945 

VTAB 15:HTAB 65: INPUT"",B(93) 

VTAB 15:HTAB 65:PRINT" ":VTAB 15:HTAB 65:PRINT USING 
WAR AAA ; B (93) 

VTAB 16:HTAB 65:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 16:HTAB 65:PRINT" 
";E$:ELSE 4915 

IF E$ = "J" THEN B(93) = 300 

VTAB 17:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 17:HTAB 65: PRINT" 
":Y$:ELSE 4930 

IF Y$ = "J" THEN A(94) = 

VTAB Fon. : sind alle Angaben 
richtig 7 <J/ND 20 GET: BE 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 4945 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-—> 
KORREKTUR <-" :NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";: GOTO 
4845 

VTAB 3:HTAB 65:PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16): :FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR Sl = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


L.BAS: Besondere Abzugsbetråge und auslåndische 


4980 


4985 
4990 


4995 
5000 


5005 


5010 


5015 


5020 


5025 


5030 


5035 


5040 


5045 


- 5050 


5055 


5060 


5065 
5070 
5075 
5080 
5085 
5090 


5095 
5100 


5105 
5110 


5115 
5120 


5125 
5130 


5135 
5140 


5145 
5150 


5155 
5160 
5165 


5170 
5175 
5180 
5185 
5190 
5195 


5200 
5205 


5210 


5215 
5220 


5225 
5230 


5235 


Steuer 


REM BESONDERE ABZUGSBETRAEGE UND AUSLAENDISCHE 
STEUER 

COMMON A(), B(), C(), D(), E(), M(), N() 

HOME: PRINT"Besondere Abzugsbeträge u. ausländische 
Steuer" 

FOR I = 1 TO 79:PRINT"-";:NEXT I-PRINT 

VTAB 7:PRINT"ErmáBigungsbetrag : nach Par.16,17 
Bariin: PG. <ia. DM>-.,.* 

PRINT"ErmáBigungsbetrag : als 
Arbeitgeber/Verm.-Leist.<in DM> ..." 

PRINT'"Ausl. Einkünfte : nach Par.34c, Abs.I,II,V.. 
Cda DM. 

PRINT"Ausl. Steuern : nach Par.34c. Abs.I,II,V .. 
ESN DM ET 

PRINT"Ausl. Steuern : nach Par.34c. Abs.III ..... 
A aN i 
PRINT"Begünstigste Einkünfte: für Erfinder 

NR ead <+n--DU> 
PRINT"Ausbildungsplatzeink. : nach Par. 24b ESTG 

ee aiea S Bar A 

PRINT:PRINT"Einkünfte aus der : 
Ausbildungsplatzschaffung . <in DM> ..." 
PRINT:PRINT"Einkúnfte aus der : 
Ausbildungsplatzschaffung . <in DM> ..." 

HTAB 30: INVERSE:PRINT"WAHLRECHT" : NORMAL 

PRINT" <A> Abzug von der EST nach Par. 34c I" 

PRINT" <B> Abzug vom Gesamtbetrag d. Einktinfte nach 
Par.34c II" 

PRINT"Bitte hier eingeben : Ihre Wahl <A> oder <B> 
EEE «A/B a" 

VTAB 4:HTAB 65: 1INVERSE: PRINT"--> EHEMANN <-——-" 

HTAB 65: PRINT"--> EHEFRAU <—-" 

VTAB 14:HTAB 65: PRINT"--> EHEMANN <--" 
VTAB 16:HTAB 65: PRINT"—-> EHEFRAU <--":NORMAL 

VTAB 7:HTAB 65: INPUT"",A(95) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
Makk ; A (95) 

HTAB 65:INPUT"",A(96) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 
Takk" ; A (96) 

HTAB 65:INPUT"",A(97) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
NPEEEEPEEE EEE E ; A (97) 

HTAB 65:INPUT"",A(98) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
A (98) 

HTAB 65: INPUT"",A(100) 

VTAB 11:HTAB 65:PRINT" ":VTAB 11:HTAB 65:PRINT USING 
Mikk" ; A (100) 

HTAB 65:INPUT"",A(102) 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65:PRINT USING 
WAR RARA A(102) 

VTAB 13:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 13:HTAB 65:PRINT" 
";Y$:ELSE 5145 

IF Y$ = "N" THEN 5185 

VTAB 15:HTAB 65: INPUT"",A(101) 

VTAB 15:HTAB 65:PRINT" ":VTAB 15:HTAB 65:PRINT USING 
DARA ARA "¡A (101) 

IF A(1) = 1 THEN 5185 

VTAB 17:HTAB 65: INPUT"",B(101) 

VTAB 17:HTAB 65:PRINT" ":VTAB 17:HTAB 65:PRINT USING 
WAR RR B(101) 

IF A(97) = O AND A(98) = O THEN 5205 

VTAB 21:HTAB 65:GET Y$ 

IF Y$ = "A" OR Y$ = "B" THEN VTAB 21:HTAB 65: PRINT" 
":Y$:ELSE 5185 

A(99) = 1: IF Y$ = "B" THEN A(99) = 

VTAB 23 :PRINT"Eingabefehler : sind alle Angaben 
richtig ?. IJ/N>' .. 0 "¡GET ES 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";:GOTO 5085 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65:PRINT" 
";E$:ELSE 5205 

VTAB 3:HTAB 65: PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR SI = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


M.BAS: Angaben fiir die An- und Abrechnung 


5240 
5245 
5250 
5255 
5260 


5265 


REM ANGABEN FUER DIE AN- U. ABRECHNUNG 


COMMON A(), B(), C(), D(), E(), M(), N() 


HOME: PRINT"Einkünfte für An- u. Abrechnung :":NORMAL 
FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 7:PRINT"Angaben : An- u. Abrechnung .......... 
NA AA 

PRINT"Lohnsteuer : Gesamt-Lohnsteuer ......... <in 
Di A 


53 


5270 
5275 
5280 
5285 
5290 
5295 
5300 


5305 
5310 


PRINT"Kirchensteuer : evangelische Kirche ....... 
<0 DIE; 

PRINT"Kirchensteuer : katholische Kirche ....... <in 
Di, ee 

PRINT"Kapitalertragssteuer : insgesamt 

Te POE OR Pa Hin an 
PRINT"Körperschaftssteuer : anrechenbare Steuer 

at <in DER ; ;;* 
PRINT"Einkommenssteuer : vorausgezahlte Beträge .... 
<in DM ..." 

PRINT"Kirchensteuer : vorausgezahlte Beträge ev. <in 
DM> ..."" 


PRINT"Kirchensteuer : vorausgezahlte Beträge rk. <in 


ee an 
VTAB 4:HTAB 65:INVERSE:PRINT"--> EHEMANN <—" 
HTAB 65: PRINT"--> EHEFRAU <- 


—" : NORMAL 


5315 
5320 


5325 
5330 


5335 
5340 


5345 
5350 
5355 


5360 
5365 
5370 


5375 
5380 
5385 


5390 
5395 


5400 
5405 


5410 
5415 
5420 
5425 
5430 
5435 
5440 
5445 
5450 
5455 


5460 
5465 


5470 


VTAB 7:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65: PRINT" 
";Y$:ELSE 5315 

IF Y$ = "N" THEN 5440 

IF A(30) = O AND A(31) = O AND B(30) = O AND B(31) = 
O THEN 5375 

VTAB 8:HTAB 65: INPUT"",A(110) 

VTAB 8:HTAB 65:PRINT" ":VTAB 8:HTAB 65:PRINT USING 
“sets ttt tat tt tt tte" A (110) 

IF A(3) < > 1 AND B(3) < > 1 THEN 5360 

VTAB 9:HTAB 65: INPUT"",A(111) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 
"FEEEEPEFESHEEE A(111) 

IF A(3) < > 2 AND B(3) < > 2 THEN 5375 

VTAB 10:HTAB 65: INPUT"",A(112) 

VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65:PRINT USING 
"FEFEFEFEFEFE FEE" | A( 112) 

IF A(35) + B(35) = O AND A(36) + B(36) = 0 THEN 5400 
VTAB 11:HTAB 65: INPUT"",A(113) 

VTAB 11:HTAB 65:PRINT" ":VTAB 11:HTAB 65:PRINT USING 
eh A113) 

VTAB 12:HTAB 65: INPUT"",A(114) 

VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65:PRINT USING 
WAR A (114) 

VTAB 13:HTAB 65: INPUT"",A(115) 

VTAB 13:HTAB 65:PRINT" ":VTAB 13:HTAB 65:PRINT USING 
WAR RARA" ¡A (115) 

IF A(3) < > 1 AND B(3) < > 1 THEN 5425 

VTAB 14:HTAB 65: INPUT"",A(116) 

VTAB 14:HTAB 65:PRINT" ":VTAB 14:HTAB 65:PRINT USING 
VAR RAR" A(116) 

IF A(3) < > 2 AND B(3) < > 2 THEN 5440 

VTAB 15:HTAB 65: INPUT"",A(117) 
VTAB 15:HTAB 65:PRINT" ":VTAB 15:HTAB 65:PRINT USING 
“tae tt te et ete" > A (1 1'7) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N>..... "5:GET 5$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 5440 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 5315 
VTAB 3:HTAB 65: PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR SI = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


N.BAS: Rechenteil 
5475 REM RECHENTEIL 
5480 COMMON A(), B(), C(), D(), E(), M(), N() 
5485 IF A(118) = 1 THEN A(1) = A(1) + A(118) 


5490 
5495 
5500 
5505 
5510 
5515 


5520 
5525 
5530 


5535 
5540 


5545 
5550 
5555 
5560 


5565 
5570 
5575 
5580 


54 


REM EINKUENFTE AUS LAND- U. FORSTWIRTSCHAFT 

C(1) = INT(A(15)): D(1) = INT(B(15)) 

REM EINKUENFTE AUS DEM GEWERBEBETRIEB 

C(2) = INT(A(20)): D(2) = INT(B(20)) 

REM EINKUENFTE AUS SELBSTAENDIGER ARBEIT 

C(3) = INT(A(25) + A(26) - A(27)): D(3) = INT(B(25) 
+ B(26) - B(27)) 

REM EINKUENFTE AUS NICHTSELBSTAENDIGER ARBEIT 

C(4) = INT(A(30) + A(31)): D(4) = INT(B(30) + B(31)) 
V = INT(40 * A(31) / 100 + .5): IF V > 4800 THEN V = 
4800 

V1 = INT(40 * B(31) / 100 + .5): IF Vl > 4800 THEN 
Vl = 4800 

C(4) = C(4) - V - 600 


480: D(4) = D(4) - V1 - 600 


IF C(4) < 0 THEN C(4) 0 

IF D(4) < 0 THEN D(4) 0 

IF A(32) < 564 AND A(32) > C(4) THEN 5575 

IF A(32) < 564 THEN C(4) = C(4) - 564: MM = 1: IF 
C(4) < O THEN C(4) = 0. 

IF MM < > 1 THEN 5575 

GOTO 5580 

C(4) = INT(C(4) - A(32)) 

IF B(32) < 564 AND B(32) > D(4) THEN 5600 


5585 


5590 
5595 
5600 
5605 
5610 


5615 
5620 


5625 
5650 


5635 
5640 


5645 
5650 
5655 
5660 
5665 
5670 
5675 
5680 
5685 
5690 
5695 
5700 
5705 
5710 
5715 
5720 
5725 
5730 
5735 
5740 
5745 
5750 
5755 
5760 
5765 
5770 


5775 


5780 


5785 


5790 
5795 
5800 
5805 
5810 
5815 
5820 


5825 


5830 
5835 
5840 
5845 
5850 
5855 
5860 
5865 
5870 
5875 
5880 
5885 
5890 
5895 
5900 
5905 
5910 
5915 
5920 
5925 
5930 
5935 
5940 
5945 
5950 


5955 
5960 
5965 
5970 
5975 
5980 


5985 
5990 
5995 


IF B(32) < 564 THEN D(4) = D(4) - 564: NN = 1: IF 
D(4) < 0 THEN D(4) = 0 

IF NN < > 1 THEN 5600 

GOTO 5605 

D(4) = INT(D(4) - B(32)) 

REM EINKUENFTE AUS KAPITALVERMOEGEN 

IF A(35) = 0 AND B(35) = 0 AND A(36) = 0 AND B(36) = 
0 THEN 5805 

P = 100: IF A(l) = 2 THEN P = 200 

IF ((A(36) + B(36)) < = P) AND ((A(36) + B(36)) > 
(A(35) + B(35))) THEN KK = 1: GOTO 5655 

IF P < (A(36) + B(36)) THEN 5655 

C(5) = INT(A(35) - (P * A(35) / (A(35) + B(35))) + 


.5) 

IF C(5) < 0 THEN C(5) = 0 

D(5) = INT(B(35) - (P * B(35) / (A(35) + B(35))) + 
.5) 

IF D(5) < 0 THEN D(5) = 0 

GOTO 5665 


C(5) = INT(A(35) - A(36)): D(5) = INT(B(35) - B(36)) 
IF KK = 1 THEN 5805 


IF A(1) = 1 THEN 5690 

IF C(5) <= 0 AND D(5) < = 0 THEN 5715 
IF C(5) <= 0 AND D(5) > 0O THEN 5725 
IF C(5) > 0 AND D(5) < = 0 THEN 5745 
GOTO 5765 

SO = 300 

IF C(5) < 0 THEN SO = 0: GOTO 5705 


IF C(5) < 300 THEN SO = C(5) 
C(5) = C(5) - SO 


GOTO 5790 

SO = 0: SP=0 

GOTO 5790 

SO = 0: SP = 600 

D(5) = D(5) - 600 

IF D(5) < 0 THEN D(5) = 0: GOTO 5790 
GOTO 5790 

SO = 600: SP = 0 

C(5) = C(5) - 600 

IF C(5) < O THEN C(5) = 0: GOTO 5790 


GOTO 5790 
SO = 300: SP = 300 


IF C(5) > 300 AND D(5) > 300 THEN C(5) = C(5) - 300: 
D(5) = D(5) - 300: GOTO 5790 
IF C(5) < 300 AND D(5) < 300 THEN C(5) = 0: D(5) = 


0: GOTO 5790 

IF C(5) < 300 THEN SP = 300 - C(5): C(5) = 0: D(5) = 
D(5) - 300 - SP: GOTO 5790 

SO = 300 - D(5): D(5) = 0: C(5) = C(5) - 300 - SO: 
GOTO 5790 

IF (C(5) < 0) AND (SO > 0) THEN C(5) 
IF (D(5) < 0) AND (SP > 0) THEN D(5) 
GOTO 5805 

REM EINKUENFTE AUS VERMIETUNG U. VERPACHTUNG 


0 
0 


A = A(40) * 1.4 / 100 * A(41) / 100 * A(42) / 12 
B = B(40) * 1.4 / 100 * B(41) / 100 * B(42) / 12 
C = A(44): IF (A(44) > A) THEN C = A: IF A(49) = 1 


THEN C = A(44): IF C > 10000 THEN C = 10000 

D = B(44): IF (B(44) > B) THEN D = B: IF B(49) = 1 
THEN D = B(44): IF D > 10000 THEN D = 10000 
A=A-C: B=B-D 
C(6) = INT(A - A(43) 
D(6) = INT(B - B(43) 
REM SONSTIGE EINKUENFTE 

P = 200: Pl = 200 

IF A(51) < = P AND A(51) > A(50) THEN 5875 
IF A(51) > P THEN 5875 

C(7) = A(50) - P: IF C(7) < 0 THEN C(7) = 0 
GOTO 5880 

C(7) = A(50) - A(51) | 

IF B(51) < = Pl AND B(51) > B(50) THEN 5900 
IF B(51) > Pl THEN 5900 

D(7) = B(50) - Pl: IF D(7) < 0 THEN D(7) = 0 
GOTO 5905 | 

D(7) = B(50) - B(51) 

C(7) = INT(C(7) + A(52) - A(53) + .5) 

D(7) = INT(D(7) + B(52) - B(53) + .5) 

REM GESAMTSUMME DER EINKUENFTE 
C(8) =0: FOR I = 1 TO 7: C(8) 
D(8) = 0: FOR I = 1 TO 7: D(8) 
REM BETRAG DER ALTERSENTLASTUNG 
IF A(2) <> 7 THEN 5965 

A = 40 * A(30) / 100 

B = C(1) + C(2) + C(3) + C(4) + C(5) + C(6) 

C(13) = A: IF B > O THEN C(13) = C(13) + B x 40 / 
100 

IF C(13) > 3000 THEN C(13) = 3000 

C(13) = INT(C(13)) 

IF B(2) < > 7 THEN 5995 

A = 40 * B(30) / 100 

B = D(1) + D(2) + D(3) + D(5) + D(6) 

D(13) = A: IF B > 0 THEN D(13) = D(13) + B * 40 / 
100 

IF D(13) > 3000 THEN D(13) = 3000 

D(13) = INT(D(13)) 

REM AUZUGSBETRAG FUER AUSBILDUNGSPLATZSCHAFFUNG 


A(45) + A(46) - A(47) + .5) 
B(45) + B(46) - B(47) + .5) 


C(8) + C(I): NEXT I 
D(8) + D(I): NEXT I 


6000 
6005 
6010 
6015 
6020 
.6025 
6030 
6035 
6040 
6045 
6050 
6055 
6060 
6065 
6070 
6075 
6080 
6085 


6090 
6095 
6100 
6105 
6110 
6115 
6120 
6125 
6130 
6135 
6140 
6145 
6150 
6155 
6160 
6165 
6170 
6175 
6180 
6185 
6190 
6195 
6200 
6205 
6210 
6215 
6220 
6225 
6230 
6235 
6240 
6245 
6250 
6255 
6260 
6265 
6270 
6275 
6280 
6285 
6290 
6295 
6300 
6305 
6310 
6315 
6320 
6325 
6330 
6335 
6340 
6345 
6350 
6355 
6360 
6365 
6370 
6375 
6380 


6385 
6390 
6395 
6400 


6405 
6410 
6415 
6420 


6425 


6430 
6435 
6440 
6445 
6450 


C(14) = INT(A(101) + .5) 
D(14) = INT(B(101) + .5) 
REM FREIBETRAG FUER LAND- U. FORSTWIRTSCHAFT 


IF A(15) = 0 AND B(15) = 0 THEN 6070 


A = 2000: IF A(l) = 2 THEN A = 4000 

IF (C(1) < 0) OR (D(1) < 0) THEN 6040 
B=A e C(1) / (0(1) + D(1)) ' 

C=Ax* D(1) / (C(1) + D(1)) 

IF D(1) < 0 THEN B = A 

IF B > C(1) THEN B = C(1) 

IF B < 0 THEN B = 0 

IF C > D(1) THEN C = D(1) 

IF C < 0 THENC =0 

C(15) = INT(B + .5): D(15) = INT(C + .5) 


REM AUSLAENDISCHE STEUERN 

C(12) = INT(A(100)) 

IF A(99) = 2 THEN C(12) = C(12) + INT(A(98)) 

IF A(1) = 2 THEN D(12) = INT(C(12) / 2): C(12) = 
INT(C(12) / 2 + ,9) 

REM GESAMTBETRAG DER EINKUENFTE 


c(16) = c(8) - c(12) - c(13) - C(14) - c(15) 
D(16) = D(8) - D(12) - D(13) - D(14) - D(15) 
C(16) = C(16) + D(16) 


REM SONDERAUSGABEN OHNE VORSORGEPAUSCHALE 
REM SPENDEN 
SP = 0 


IF A(77) < > 0 THEN 6155 

A=5 / 100 * C(16) 

IF A< 0 THEN A = 0 

B= A(78): IF (A(78) > 2 » A) THEN B = 2 * A 

C = A(75) — A(78): IF (C > A) THEN C = Å 

SP = INT(B + C + .5): GOTO 6170 

A = 2 / 1000 * A(77) 

B = A(75): IF (B > A) THENB =A 

SP = INT(B + .5) 

A = A(76): P = 1800: IF A(1) = 2 THEN P = 3600 


IF A > P THEN A = P 
SP = INT(SP + A + .5) 
C(18) = INT(SP + A(70) + .5) 


P = 270: IF A(l) = 2 THEN P = 540 

IF C(18) < P THEN C(18) = P 

REM HOECHSTBETRAG 

A=0: B=0: Bl =0: P=0: H=0 

N=0: M=0: N = A(73): M = B(73) 

A = A(71) + A(72) + B(72) 

B= 9 * A(30) / 100: Bl = 9 « B(30) / 100 
IF A(30) > 62400! THEN B = 62400! * 9 / 100 


IF B(30) > 62400! THEN Bl = 62400! * 9 / 100 


IF A(73) -1 THEN B= 0: N= 0 

IF B(73) —] THEN Bl = 0: M=0 

P = 3000: IF A(l) = 2 THEN P = 6000 
P=P-N-M 

IF A(72) = 0 THEN P = P - B 

IF B(72) = 0 THEN P = P - Bl 

IF P < 0 THEN P = 0 

IF (P > A) THEN P = Å 

H=P: A=A-P: B=0: Bl=0 
A=A+ A(74) 

P = 2340: IF A(l) = 2 THEN P = 4680 
P = P + 600 * A(4) + 300 * A(5) 

IF (P > A) THEN H = H + A: GOTO 6320 
H=H+P: A=A-P 
p=P/2:4=A/2 

IF A < P THEN H = H + 


A 

IF (P <= A) THENH=H+P 

REM VORSORGEPAUSCHALE 

E(2) = H: REM HOECHSTBETRAG 

A = 40 * A(30) / 100: IF A > 3000 THEN A = 3000 

Al = 40 * B(30) / 100: IF Al > 3000 THEN Al = 3000 
IF A(2) < > 7 THEN A = 0 | 
IF B(2) < > 7 THEN Al = 0 

B = A(30) + A(31): Bl = B(30) + B(31) 

IF B = 0 AND Bl = O THEN 6570 

B = B-—-V- 600 - A: IF B < 0 THEN B = O 

Bl = Bl -— V1 - 600 - Al: IF Bl < 0 THEN Bl = 0 
IF B > 62400! THEN B = 62400! 

IF Bl > 62400! THEN Bl = 62400! 


Kl = 9 / 100 * B: K2 = 9 / 100 * Bl: K3 = 18 / 100 * 
B: K4 = 18 / 100 * Bl 

M=0: N=0 

IF A(73) < = 0 THEN M= 1 

IF B(73) < = 0 THEN N = 1 

IF A(1) = 2 AND ((M+N = 0) OR (M+ N = 2)) THEN 
6445 

IF A(1) = 2 AND M = 1 AND N = O THEN 6475 

IF A(l) = 2 AND M = 0 AND N = 1 THEN 6520 


REM VORSORGEPAUSCHALE FUER LEDIGE 

P = 2340 + 600 * A(4) + 300 * A(5): IF M = 1 THEN P 
= 1000 + 600 * A(4) + 300 * A(5) 

Pl = 1170 + 300 * A(4) + 150 * A(5): IF M = 1 THEN 
Pl = 1000 + 300 * A(4) + 150 * A(5) 

IF Kl < P THEN P = Kl 

IF Kl < Pl THEN Pl = Kl 

GOTO 6560 

REM VORSORGEPAUSCHALE FUER BEIDE EHEGATTEN 

P = 4680 + 600 * A(4) + 300 * A(5): IFM+N=2 


6455 


6460 
6465 
6470 
6475 


6480 
6485 
6490 


6495 


6500 
6505 


6510 
6515 
6520 


6525 
6530 
6535 


6540 


6545 
6550 


6555 
6560 
6565 


6570 


6575 
6580 
6585 
6590 
6595 
6600 
6605 
6610 
6615 
6620 
6625 
6630 
6635 
6640 
6645 
6650 
6655 
6660 
6665 
6670 
6675 
6680 
6685 
6690 
6695 
6700 
6705 
6710 
6715 
6720 
6725 
6730 


6735 
6740 


6745 
6750 
6755 
6760 
6765 
6770 
6775 
6780 
6785 
6790 
6795 
6800 
6805 
6810 


THEN P = 2000 + 600 * A(4) + 300 * A(5) 

Pl = 2340 + 300 * A(4) + 150 * A(5): IFM+N=2 
THEN Pl = 2000 + 300 * A(4) + 150 * A(5) 

IF (Kl + K2) < P THEN P = Kl + K2 

IF (Kl + K2) < Pl THEN Pl = Kl + K2 

GOTO 6560 

REM VORSORGEPAUSCHALE FUER DEN STEUERPFLICHTIGEN 
EHEGATTEN 

Pl = 0: Al = Kl: IF Kl > (1000 + 600 * A(4) + 300 * 
A(5)) THEN Al = 1000 + 600 * A(4) + 300 * A(5) 

A2 = Kl: IF Kl > (1000 + 300 * A(4) + 150 * A(5)) 
THEN A2 = 1000 + 300 * A(4) + 150 * A(5) 

T1 = Al +A2 + K4: IF Tl > (4680 + 600 * A(4) + 300 
* A(5)) THEN Tl = 4680 + 600 * A(4) + 300 * A(5) 

T2 = (Al + A2 + K4 — 4680 - 600 * A(4) - 300 * A(5)) 
/ 2: IF T2 > (4680 + 600 * A(4) + 300 * A(5)) / 2 
THEN T2 = (4680 + 600 * A(4) + 300 * A(5)) / 2 

Tl = Tl + T2: Al = Kl: IF Kl > (2000 + 600 + A(4) + 
300 * A(5)) THEN Al = 2000 + 600 * A(4) + 300 * A(5) 
A2 = Kl: IF Kl > (2000 + 300 * A(4) + 150 * A(5)) 
THEN A2 = 2000 + 300 * A(4) + 150 * A(5) 

Al = Al + AZ: P= Tl: IFAl > Tl THENP=Al 

GOTO 6560 

REM VORSORGEPAUSCHALE FUER DEN STEUERPFLICHTIGEN 
EHEGATTEN 

Pl = 0: Al = K2: IF K2 > (1000 + 600 * A(4) + 300 * 
A(5)) THEN Al = 1000 + 600 * A(4) + 300 * A(5) 

A2 = K2: IF K2 > (1000 + 300 * A(4) + 150 * A(5)) 
THEN A2 = 1000 + 300 * A(4) + 150 * A(5) 

Tl = Al + A2 + K3: IF Tl > (4680 + 600 * A(4) + 300 
* A(5)) THEN Tl = 4680 + 600 * A(4) + 300 * A(5) 

T2 = (Al + A2 + K3 - 4680 — 600 * A(4) - 300 * A(5)) 
/ 2: IF T2 > (4680 + 600 * A(4) + 300 * A(5)) / 2 
THEN T2 = (4680 + 600 * A(4) + 300 * A(5)) / 2 

Tl = Tl + T2: Al = Kl: IF K2 > (2000 + 600 + A(4) + 
300 * A(5)) THEN Al = 2000 + 600 * A(4) + 300 * A(5) 
A2 = K2: IF K2 > (2000 + 300 * A(4) + 150 * A(5)) 
THEN A2 = 2000 + 300 * A(4) + 150 * A(5)) 

Al = Al + A2: P = Tl: IF Al > Tl THEN P = Al 

P= P + Pl 

VP = INT(P / 54) * 54: IF VP < 300 * A(1) THEN VP = 
300 *A(1) 

IF (A(30) + A(31) + B(30) + B(31)) = 0 THEN VP = 300 
* A(l) 

E(3) = VP: REM VORSORGEPAUSCHALE 

C(19) = H: IF VP > H THEN C(19) = VP 

C(19) = INT(C(19) + .5) 

REM FREIBETRAG FUER FREIBERUFLICHE 

A=0: B=0 

IF A(25) < = C(18) - C(3) THEN 6615 

A = INT(A(25) «5 / 100 + .5) 

IF A > 1200 THEN A = 1200 

IF B(25) < = D(8) - D(3) THEN 6630 

B = INT(B(25) «5 / 100 + .5) 

IF B > 1200 THEN B = 1200 

IF A< 0 THEN A 0 

IF B< 0 THEN B 0 

C(21) =A+B 

REM AUSSERGEWOEHNLICHE BELASTUNGEN 

A = A(4) + A(5): B= A(1): C = .C(16) 


IF B = 1 AND A = 0 AND C < = 30000 THEN D = 5 
IF B = 1 AND A = 0 AND C > 30000 THEN D = 6 

IF B = 1 AND A =0 AND C > 100000! THEN D = 7 
IF B = 2 AND A = 0 AND C < = 30000 THEN D = 4 
IF B = 2 AND A = 0 AND C > 30000 THEN D = 5 

IF B = 2 AND A = 0 AND C > 100000! THEN D = 6 
IF A <=2 AND A > 0 AND C < = 30000 THEN D = 2 
IF A<=2 AND A > 0 AND C > 30000 THEN D = 3 
IF A<=2 AND A > 0 AND C > 100000! THEN D = 4 
IF A > = 3 AND C < = 100000! THEN D = 1 

IF A > = 3 AND C > 100000! THEN D = 2 

A =D * C(16) / 100 


IF A(85) = 0 THEN A = 0 

IF (A(85) < = A) THEN A = A(85) 

E(5) =A 

REM AUSSERGEWOEHNLICHE BELASTUNGEN 
(DDR/HAUSHALTSHILFEN ) 

C(22) = INT(A(85) -— A + A(86) + A(88) + A(89) * 620 
+ A(90) + A(91) + .5) 

A = A(93): GOSUB 6745: A = B(93): GOSUB 6745: GOTO 


6805 

B=0 

IF A > = 25 AND A < = 34 THEN B = 600 
IF A > = 35 AND A < = 44 THEN B = 840 
IF A > = 45 AND A < = 54 THEN B = 1110 
IF A > = 55 AND A < = 64 THEN B = 1410 
IF A > = 65 AND A < = 74 THEN B = 1740 
IF A > = 75 AND A < = 84 THEN B = 2070 
IF A > = 85 AND A < = 90 THEN B = 2400 
IF A > = 91 AND A < = 100 THEN B = 2760 
IF A = 300 THEN B = 7200 

IF A = 1 THEN B = B + 720 

C(22) = C(22) + B:RETURN 

A=0: B=0 


C(24) = C(16) - C(18) - C(19) - C(21) - C(22): REM 
EINKOMMEN | 


55 


6815 


6820 
6825 
6830 


6835 


6840 
6845 


6850 
6855 


6860 
6865 


6870 
6875 


6880 
6885 


6890 
6895 
6900 
6905 
6910 
6915 
6920 
6925 
6930 
6935 
6940 


6945 
6950 


6955 
6960 
6965 
6970 
6975 


6980 
6985 
6990 
6995 
7000 


7005 
7010 


7015 
7020 
7025 
7030 
7035 


7040 
7045 
7050 


7055 


7060 


7065 


7070 
7075 
7080 
. 7085 
7090 
7095 
7100 
7105 
7110 
7115 


7120 
7125 
7130 


7135 
7140 
7145 
7150 
7155 
7160 
7165 
7170 
7175 


56 


E(11) = A(80): E(12) = A(81): E(13) = A(82): E(14) = 
B(79): E(15) = B(80): E(16) = B(81) 


IF C(24) < = 0 THEN 6900 

C(23) = C(24) 

C(24) = C(24) - A(79): IF C(24) <= 0 THEN C(24) = 
0:GOTO 6900 

C(24) = C(24) - B(80): IF C(24) <= 0 THEN E(15) = 
E(15) + C(24): C(24) = 0: GOTO 6900 

E(15) = 0 

C(24) = C(24) - A(80): IF C(24) <= 0 THEN E(ll) = 
E(11) + C(24): C(24) = 0: GOTO 6900 

E(li) =0 

C(24) = C(24) — A(81): IF C(24) < = 0 THEN E(12) = 
E(12) + C(24): C(24) = 0: GOTO 6900 

E(12) = 0 

C(24) = C(24) - A(82): IF C(24) <= 0 THEN E(13) = 
E(13) + C(24): C(24) = 0: GOTO 6900 

E(13) = 0 

C(24) = C(24) - B(79): IF C(24) < = 0 THEN E(14) = 
E(14) + C(24): C(24) = 0: GOTO 6900 

E(14) = 0 

C(24) = C(24) - B(81): IF C(24) < = 0 THEN E(16) = 
E(16) + C(24): C(24) = 0: GOTO 6900 

E(16) = 0 

6(23) = C(23).-— C(24) 

REM ALTERSFREIBETRAG 


IF A(2) = 7 THEN C(25) 
IF B(2) = 7 THEN C(25) 
REM HAUSHALTSFREIBETRAG 
IF A(1) = 1 AND (A(4) + A(5)) > 0 THEN C(26) = 4212 
REM KINDERFREIBETRAG 

C(27) = A(4) * 432 + A(5) * 216 

REM ZU VERSTEUERNDES EINKOMMEN 
C(29) =: C24). =. C(25)"~ 0(26) =. Cl27): IF cl28) <0 
THEN C(29) = 0 

REM ABZUGSBETRAG NACH PARAGRAPH 34F 

C(47) = A(48) * 600: C(40) = INT(A(95) + .5): C(41) 
= INT(A(96) + .5) 

REM EINKOMMENSTEUER-BERECHNUNG 

IF A(l) = 1 THEN C(30) = 1 

IF A(l) = 2 THEN C(30) = 2 

IF A(6) = 1 THEN C(30) = 2 

AU = INT(A(16) + B(16) + A(21) + B(21) + A(28) + 
B(28) + A(60) + B(60) + A(61) + B(61)): AN = 0: AV 
AU 

IF AU > C(29) THEN AU = C(29): AN = 4212 

IF C(29) < = 0 THEN AN = 0 

FOR I = AN TO AU: REM KUERZUNGSBETRAG = I 

Tl: = 0: 125.0; AY = AU - 1 

Sl = C(29) - AV + A(65) + A(67) + B(67) - A(66): E 
Sl: CP = C(30) 

GOSUB 7075: IF Sl > O THEN Tl = INT((C(29) - AV) « 
ST / Sl) K 

S2 = C(29) + A(65) + A(67) + B(67): E = S2: CP = 
C(30) 

GOSUB 7075: IF S2 > 0 THEN T2 = AV * ST / S2 / 2 

T = Tl.+ T2: IF (T > = TV) AND (I > AN) THEN 7030 


720 
C(25) + 720 


lb Al 


TV = T: TS = Tl: T4 = T2: S3 = Sl: S4 = S2: NEXT I 


E(17) = C(29) - AV 

IF (A(65) > 0) OR (A(66) > 0) OR (A(67) > 0) OR 
(B(67) > 0) THEN E(18) = E(17): E(17) = 0 

E(19) = AV: C(31) = INT (T3 * 100) / 100 


IF (C(29) — AV) < = O THEN 7055 

IF S3 > 0 THEN E(6) = INT (T3 » 100 / (C(29)'- AV) æ 
100) / 100 

IF AU > 0 THEN E(8) = INT (T4 * 100 / AV * 100) / 
100 ; 

E(9) = I - 1: IF (A(65) > 0) OR (A(66) > 0) OR 


(A(67) > 0) OR (B(67) > 0) THEN C(32) = C(31): C(31) 
= 0: E(7) = E(6): E(6) = 0 

C(33) = INT (T4):-C(34) = C(31) + C(33): IF C(31) = 
O THEN C(34) = C(32) + C(33) 

GOTO 7155 

REM UNTERPROGRAMM — TABELLE 

IF CP = 2 THEN E= E / 2 

E = INT(E / 54) * 54 

IF E < = 4212 THEN ST = 0: GOTO 7140 

IF E > 18000 THEN 7105 

ST = INT(.22 * E - 926): GOTO 7140 

IF E > = 60000! THEN 7120 

Y= (E - 18000) /.10000 

ST = INT((((3.05 * Y - 73.76) * Y + 695) * Y + 2200) 
* Y + 3034): GOTO 7140 

IF E > 130000! THEN 7135 

Z = (E - 60000!) / 10000 

ST = INT((((.09 « 2 - 5.45) * Z + 88.13) * Z + 5040) 
* Z + 20018): GOTO 7140 

ST = INT(.56 * E — 14837) 

IF ST < 0 THEN ST 0 

IF CP = 2 THEN ST ST * 2 

RETURN 

REM AUSLAENDISCHE STEUER 

IF C(16) < = 0 THEN 7185 

AS = INT(A(97) * C(34) / C(16) ) 

C(35) = INT(A(98)) 

IF AS < = A(98) THEN C(35) = AS 


7180 
7185 
7190 
7195 
7200 


7205 
7210 
7215 


7220 


7225 


7230 


7235 
7240 


7245 
7250 
7255 
7260 
7265 
7270 


7275 
7280 
7285 
7290 
7295 


7300 
7305 
7310 
7315 
7320 
7325 


7330 
7335 
7340 
7345 
7350 
7355 
7360 
7365 
7370 
7375 
7380 
7385 
7390 
7395 
7400 
7405 
7410 
7415 
7420 
7425 
7430 
7435 
7440 
7445 
7450 
7455 
7460 
7465 
7470 
7475 
7480 
7485 


7490 
7495 
7500 
7505 
7510 
7515 
7520 
7525 
7530 
7535 


7540 


7545 


7570 


7575 


IF A(99) = 2 THEN C(35) = 0 

REM ERMAESS. F. ERFINDER 

IF C(16) < = 0 THEN 7205 

C(37) = INT(A(102) * C(34) / C(16) / 2+ .5) 

IF C(16) < A(102) THEN C(37) = INT(C(16) * C(34) / 
C(16) / 2.+.:5) 

REM ERMAESSIGUNG FUER LAND- U. FORSTWIRTSCHAFT 

IF C(29) < = 0 THEN 7290 

A= C(1): B = C(15): C = A(103): D = A(104): GOSUB 
7240: Vl = U: IF V1 < 0 THEN V1 = 0 

A = D(1): B = D(15): C = B(103): D = B(104): GOSUB 
7240: V2 = U: IF V2 < 0 THEN V2 = 0 

A = C(1): B = C(15): C = A(105): D = A(106): GOSUB 
7240: V3 = U: IF V3 < 0 THEN V3 = 0 

A = D(1): B = D(15): C = B(105): D = B(106): GOSUB 
7240: V4 = U: IF V4 < 0 THEN V4 = 0 

GOTO 7260 

U = C(34) / C(29) / 2 + (A - B): V = 1000 - ((C - 
50000!) / 10) 
IF D > 0 THEN V = 
IF U > V THEN U= V 


RETURN 
IF (A(105) = 0) AND (A(106) = 0) THEN V3 = 0 
IF (B(105) = 0) AND (B(106) = 0) THEN V4 = 0 


AA = 2000: IF (A(1) = 2) AND (C(1) > 0) AND (D(1) > 
0) THEN AA = 1000 


C(36) = Vl + V3: IF (C(36) > AA) THEN C(36) = AA 
D(36) = V2 + V4: IF (D(36) > AA) THEN D(36) = AA 
C(36) = INT(C(36) + D(36) + .5): D(36) = 0 


REM FESTZUSETZENDE EINKOMMENSTEUER 
C(44) = C(34) - C(35) - C(36) - C(37) - C(38) + 
C(39) — C(40) - C(41) - C(42) + C(43) 


IF C(44) < 0 THEN C(44) = 0 

REM KIRCHENSTEUER-BERECHNUNG 

T = C(44) 

IF A(4) = 1 THEN T = C(44) - 600 

IF A(4) = 2 THEN T = C(44) - 600 - 960 

IF A(4) > 2 THEN T = C(44) - 600 - 960 - ((A(4) - 2) 
* 1800) 


IF T < = 0 THEN T = 0 
REM STEUER AUS S.D.E. 


CP = 1: E = C(8): GOSUB 7080: T3 = ST 
CP = 1: E = D(8): GOSUB 7080: T4 = ST 
IF A(1) = 1 THEN 7385 


IF (A(3) > 0) AND (B(3) > 0) THEN 7385 

IF A(3) = 0 THEN 7370 

KI = T « T3 / (T3 + T4): KI = 9 * KI / 100 
IF B(3) = 0 THEN 7390 

KI = T * T4 / (T3 + T4): KI = 9 * KI / 100 
GOTO 7390 

KI = 9- + T / 100 

REM KIRCHENSTEUER FUER LEDIGE 

KI = INT(KI » 100) / 100 


IF A(3) = 1 THEN C(45) = KI 

IF A(3) = 2 THEN C(46) = KI 

IF. A(l) = 1 THEN 7455 

REM KIRCHENSTEUER FUER EHEGATTEN 

IF A(3) = 1 THEN C(45) = .5 

IF A(3) = 2 THEN C(46) = .5 

IF B(3) = 1 THEN C(45) = C(45) + .5 

IF B(3) = 2 THEN C(46) = C(46) + .5 

IF C(45) = .5 AND C(46) = O THEN C(45) = 1 

IF C(46) = .5 AND C(45) = 0 THEN C(46) = 1 

C(45) = C(45) * KI: C(46) = C(46) * KI 

REM AN- U. ABRECHNUNG 

C(50) = INT(A(113) + .9): C(51) = INT(A(114) + .9) 
C(53) = INT(A(110) + .9): C(54) = INT(A(115) + .9) 
C(56) = INT(A(111) +'.9): C(57) = INT(A(112) + .9) 
C(58) = INT(A(116) + .9): C(59) = INT(A(117) + .9) 
IF C(47) > C(44) THEN C(47) = C(44) 

C(52) = C(44) — C(50) - C(51) - C(47): C(55) = C(52) 
- C(53) - C(54) ' 
C(60) = C(45) - C(56) - C(58): C(61) = C(46) - C(57) 


- C(59) 

C(62) = C(60) + C(61): C(63) = C(62) + C(55) 

REM AUSDRUCK AUF DEM BILDSCHIRM 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 

69: INVERSE : PRINT"SEITE 1": NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 4:PRINT"E i nkün f t e : Ehemann: Ehefrau: 
FOR I = 1 TO 79:PRINT"*";: NEXT I 

PRINT"Land- u. Forstwirtschaft";:HTAB 44:PRINT USING 
"ikke" > C(1);:HTAB 62:PRINT USING "####44++#" D(1) 
PRINT"Gewerbebetrieb";:HTAB 44:PRINT USING $ 
"++++++#+";C(2);:HTAB 62:PRINT USING "#4444444" > D(2) 
PRINT"Selbständiger Arbeit";:HTAB 44:PRINT USING 
"SEEEE EEE" >C(S); :HTAB 62:PRINT USING "#4#44####" ;>D(3) 
PRINT"Nichtselbstandiger Arbeit"; :HTAB 44:PRINT 
USING "###+#+##+##";>C(4);:HTAB 62:PRINT USING 
"EHEHEHEH"; D(4) 

PRINT"Kapitalvermógen";:HTAB 44:PRINT USING 

"tee ee ett" > C(5);:HTAB 62:PRINT USING "#4444444" > D(5) 
PRINT: PRINT'"Alterentlastungsbetrag"; :HTAB 44: PRINT 
USING "########";C(13);:HTAB 62: PRINT USING i 
Nabe ett et" > 2 (13) 
PRINT" Ausbildungsplatz—Abzugsbetrag"; :HTAB 44:PRINT 


7580 
7585 
7590 
7595 
7600 


7605 


7610 
7615 


7620 
7625 


7630 
7635 
7640 
7645 


7650 
7655 


7660 
7665 
7670 


7675 
7680 


7685 
7690 
7695 
7700 
7705 
7710 
7715 
7720 
7725 
7730 
7735 
7740 
7745 


7750 
7755 


7760 
7765 
7770 
7775 
7780 


7785 
7790 


7795 
7800 
7805 
7810 
7815 
7820 
7825 
7830 
7835 
7840 
7845 
7850 


7855 


USING "########";C(14); :HTAB 62:PRINT USING 
"#4"; D(14) 

PRINT"Freibetrag für Land- u. Forstwirtschaft"; :HTAB 
44:PRINT USING "########";C(15); :HTAB 62: PRINT USING 
"44th"; D(15) 

PRINT"Auslåndische Steuer n. Par.34c";:HTAB 44:PRINT 
USING "########";C(12);:HTAB 62:PRINT USING 
Me; D(12) 

FOR I = 1 TO 79: PRINT"=";:NEXT I 

PRINT"Gesamtbetrag der Einkünfte für 
Ehemann/frau'";:HTAB 55:PRINT USING "#####4###";C(16) 
VTAB 23:HTAB 25:PRINT"—> ";: INVERSE: PRINT"Drúcken 
Sie eine Taste": : NORMAL: PRINT" <—-":GET Y$ 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 69: INVERSE: 
PRINT"SEITE 2": NORMAL ’ 


FOR I = 1 TO 79:PRINT"-";:NEXT I:PRINT 
VTAB 6:PRINT"Ausgaben, Aufwendungen, Freibeträge 
Ehemann/Ehefrau" 


FOR I = 1 TO 79:PRINT"x";:NEXT I 
PRINT'"Sonderausgaben'; :HTAB 60: PRINT USING 

akk C(18) 

PRINT"Vorsorgeaufwendungen"; :HTAB 60:PRINT USING 
Maki; C( 190) 

PRINT"Freibetrag ftir Freiberufler"; :HTAB 60:PRINT 
USING "####+#+##" ;C (21) 

PRINT" AuBergewohnliche Belastungen"; :HTAB 60:PRINT 
USING "de" > C (22) 

PRINT"Verlustabzug"; :HTAB 60: PRINT USING 
akse C(23) 

FOR I = 1 TO 79:PRINT"="; :NEXT I 
PRINT"Einkommen"; :HTAB 60:PRINT USING 

ikke; C(24) 

PRINT: ge rn i Nl 60 : PRINT USING 
ikke; 0(25) 

PRINT"Haushaltsfreibetrag";:HTAB 60:PRINT USING 
Md" ¡0 (26) 

PRINT"Kinderfreibetrag";:HTAB 60:PRINT USING 

Nett tsetse" > C (27 ) 

FOR I = 1 TO 79: PRINT"=";:NEXT I 

PRINT"Zu versteuerndes Einkommen"; :HTAB 60:PRINT 
USING "########";C(29) 

VTAB 23:HTAB 23: PRINT"--> ";: INVERSE: PRINT"<W>eiter, 
<Zz>urück... <W/Z>"; : NORMAL: PRINT" <—-":GET Y$ 

IF Y$ = "W" OR Y$ = "Z" THEN 7695:ELSE 7685 

IF Y$ = "Z" THEN 7505 

HOME: PRINT"An- u: Abrechnung : -"; :HTAB 

69: INVERSE: PRINT"SEITE 3":NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I:PRINT 

VTAB 5:PRINT"Einkommen/Lohn-Steuer Ehemann/Ehefrau" 
FOR I = 1 TO 79:PRINT"x";:NEXT I 

PRINT"laut "; 

IF C(30) = 1 THEN PRINT"Grundtabelle "; 

IF C(30) = 2 THEN PRINT"Splitting "; 
PRINT"<";E(17);" * ";E(6);" %>";:HTAB 60: PRINT USING 
maske > C (31) 

PRINT" laut Progressionsvorbehalt <";E(18);" * 
"sE(7)" %>";:HTAB 60:PRINT USING "titt" > C(32) 
PRINT"ErmåBigte Steuer n.Par.34 <";E(19);" * ";E(8)" 
%>";:HTAB 60:PRINT USING "titt" ;C(33) 

FOR I = 1 TO 79:PRINT"="; :NEXT I 

PRINT" Tarifliche Einkommen/Lohn-Steuer" ; :HTAB 
60:PRINT USING "##+##+####";C (34) 

PRINT: PRINT" Auslandische Steuer n. Par.34c"; :HTAB 
60:PRINT USING "####4#+#+#";C(35) 

PRINT"ErmåBigung aus Land- u. Forstwirtschaft"; :HTAB 
60:PRINT USING "titt" ;C(36) 

PRINT"ErmåBigung fir Erfinder";:HTAB 60:PRINT USING 
Mad" ¡0 (37) 

PRINT"ErmåBigung Berlin FG n. Par. 16, 17"; :HTAB 
60:PRINT USING "#####+###";C(40) 

PRINT"Ermäßigung Vermögensbildungsgestz n. Par. 
14"; :HTAB 60:PRINT USING "########";C(41) 

FOR I = 1 TO 79: PRINT"=";:NEXT I 
PRINT"Festzusetzende Einkommen/Lohn-Steuer"; :HTAB 
60 :PRINT USING "drift" ;C(44) 
PRINT"Festzusetzende Kirchensteuer ev."; :HTAB 
60:PRINT USING "########";0(45) 
PRINT"Festzusetzende Kirchensteuer rk.";:HTAB 
60:PRINT USING "########";C0(46) 

VTAB 23:HTAB 23: PRINT"—-> ";: INVERSE: PRINT"<W>eiter, 
<Z>urück ... <W/Z>"; : NORMAL : PRINT" <--":GET Y$ 

IF Y$ = "W" OR Y$ = "Z" THEN 7815:ELSE 7805 

IF Y$ = "Z" THEN 7605 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 

69: INVERSE : PRINT"SEITE 4": NORMAL 

FOR I = 1 TO 79: PRINT"-";:NEXT I:PRINT 

VTAB 6: PRINT"Einkommen/Lohn-Steuer Ehemann/Ehefrau'" 
FOR I = 1 TO 79: PRINT"x";:NEXT I 
PRINT"Festzusetzende Einkommen/Lohn-Steuer"; :HTAB 
60:PRINT USING "###+#+###" ;C(44) 

PRINT" Abzug n. Par. 34f";:HTAB 60:PRINT USING 
NEHE" ; C (47) 

PRINT"Kapitalertragssteuer";:HTAB 60:PRINT USING 
Wait" C (50) 

PRINT"Anrechnung Kórperschaftssteuer";:HTAB 60: PRINT 
USING "########";C(51) 


7860 
7865 


7870 


7875 


7880 


7885 


7890 


7895 
7900 
7905 


7910 


7915 


7920 
7925 


7930 
7935 
7940 
7945 
7950 
7955 


7960 
7965 


7970 
7975 


7980 
7985 


7990 
7995 


8000 
8005 
8010 


8015 
8020 


8025 
8030 


8035 


8040 
8045 
8050 
8055 


8060 
8065 
8070 
8075 


8080 
8085 


8090 
8095 
8100 
8105 
8110 
8115 


8120 
8125 


8130 
8135 
8140 


8145 
8150 


FOR I = 1 TO 79:PRINT"=";:NEXT 1 
PRINT"Verbleiben";:HTAB 60:PRINT USING 
Wa"; 0 (52) 

PRINT:PRINT"Lohnsteuer";:HTAB 60:PRINT USING 
MARA A" ¡CO (53) 

PRINT"Vorausgezahlte Einkommen/Lohn-Steuer"; :HTAB 


60: PRINT USING "titt" ;C(54) 

FOR I = 1: TO 79:PRINT"=": :NEXT 1 
PRINT"Einkommen/Lohn-Steuer";:HTAB 60:PRINT USING 
"attests tsetse" > C (55) 

VTAB 23:HTAB 23:PRINT"-——> ";: INVERSE: PRINT"<W>eiter, 
<Z>urúck ... <W/Z>"; : NORMAL : PRINT" <—-":GET Y$ 

IF Y$ = "W" OR Y$ = "Z" THEN 7900:ELSE 7890 

IF Y$ = "Z" THEN 7700 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 

70: INVERSE: PRINT"SEITE 5": NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 6: PRINT"Einkommen/Lohn-Steuer Ehemann/Ehefrau" 
FOR I = 1 TO 79:PRINT"x"; : NEXT I 

PRINT" Einkommen/Lohn-Steuer"; :HTAB 60:PRINT USING 
"attests" > C (55 ) 

PRINT"Festgesetzte Kirchensteuer ev.";:HTAB 60:PRINT 
USING "+3#+##+##" ; C (45) 

PRINT" Festgesetzte Kirchensteuer rk.";:HTAB 60:PRINT 
USING "########";C0(46) 

PRINT"Lohn-Kirchensteuer ev.";:HTAB 60:PRINT USING 
akk ; 0(56) 

PRINT"Lohn-Kirchensteuer rk.";:HTAB 60:PRINT USING 
Nett tte" > C (57) 

PRINT" Vorausgezahlte ie ev.'";:HTAB 
60:PRINT USING "#####4###';C(58) 
PRINT"Vorausgezahlte Kirchensteuer rk.";:HTAB 
60:PRINT USING "########'";C(59) 

FOR I = 1 TO 79:PRINT"="; :NEXT I 

PRINT"Restbetrag Kirchensteuer ev.";:HTAB 60:PRINT 
USING "#####+4##+#'";C(60) 

PRINT"Restbetrag Kirchensteuer rk.";:HTAB 60: PRINT 
USING "#####+4##+#";C(61) 

PRINT"Restbetrag Gesamt-Kirchensteuer ev. u. 
rk.";:HTAB 60:PRINT USING "titt" ;C(62) 

FOR I = 1 TO 79:PRINT"="; :NEXT I 
PRINT"Gesamt-Einkommen/Lohn-Steuer"; :HTAB 60: PRINT 
USING "ditt; O(63) 

HTAB 60: PRINT'=" 

VTAB 23:HTAB 23: PRINT"—-> "; : INVERSE: PRINT"<W>eiter, 
<Z>urück ... <W/Z>"; :NORMAL: PRINT" <--":GET Y$ 

IF Y$ = "W" OR Y$ = "Z" THEN 8005:ELSE 7995 

IF Y$ = "Z" THEN 7820 

HOME : PRINT"An- u. Abrechnung : ";:HTAB 

70: INVERSE : PRINT"SEITE 6":NORMAL 

FOR I = 1 TO 79:PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Lohn/Einkommensteuer Erstattung oder 
Erhebung, sowie Erlåuterungen" 

FOR I = 1 TO 79:PRINT"*"; :NEXT I 

IF C(63) = O THEN 8045 

IF C(63) > O THEN PRINT"Restbetrag";:HTAB 60:PRINT 
USING "#####4###";C(63) ; :PRINT'" DM" 

IF C(63) < 0 THEN PRINT"Erstattungsbetrag"; :HTAB 
60: PRINT USING "#####4###";C(63) * —1;:PRINT" DM" 
PRINT: IF E(1) = 1 THEN PRINT"Einzelveranlagung mit 
Witwensplitting Par. 32a VI ESTG.":PRINT 

IF A(71) + A(72) + B(72) + A(74) = 0 THEN 8110 
PRINT" An Vorsorgeaufwendungen plus Bausparbeitráge 
wurden ";A(71) + A(72) + B(72) + A(76);" DM 
berücksichtigt" 


PRINT"Höchstbetrag : ";E(2);" DM" 
PRINT"Vorsorgepauschale/Pauschbetrag : ";E(3);" DM" 
IF (A(4) + A(5)) > 0 THEN PRINT"Es wurde(n) ";A(4);" 


Kind(er) und ";A(5);" Zahlkind(er) berücksichtigt." 
IF (A(79) + A(80) + A(81) + A(82) + B(79) + B(80) + 
B(81)) = 0 THEN 8110 


PRINT"In 1984 noch abzugsfáhige Verluste:" 

PRINT" aus 1979 : 0";:HTAB 30:PRINT"aus 1980 : 
";E(11) , 

PRINT" aus 1981 : ";E(12);:HTAB 30:PRINT"aus 1982 : 
":E(13) 3 

PRINT" aus 1983 : ";E(14);:HTAB 30:PRINT"aus 1983 : 
Verlustrúcktrag" 

PRINT" aus 1985 : ";E(15); :HTAB 30 :PRINT"aus 1987 : 
Verlustvortrag" 

PRINT" aus 1986 : ";E(16) 

IF C(16) = 0 THEN 8125 

PRINT: PRINT"Verlustrücktrag des negativen 


Gesamtbetrags der Einkünfte in 1983 + 1982" 
PRINT"in Höhe von ";ABS (C(16));" DM" 

IF A(85) > 0 THEN PRINT:PRINT"Von den 
auBergewöhnlichen Belastungen n. Par.33 ESTG wurde 
eine zumutbare":PRINT"Eigenleistung I.H.V. ";E(5);" 
DM abgezogen." 

IF E(9) > 0 THEN PRINT"Die begúnstigten Einkünfte 
wurden zu Gunsten um ";E(9);" DM gekirzt" 

VTAB 23:HTAB 23:PRINT"—> ";: INVERSE: PRINT"<M>enue, 
<Z>urück ... <M/Z>"; :NORMAL: PRINT" <—":GET Y$ 

IF Y$ = "M" OR Y$ = "Z" THEN 8145:ELSE 8135 

IF Y$ = "Z" THEN 7905 

CHAIN "MENUE" 


OF 


Helpmenue : 


Anleitung 
Kurzerklärungen der Lohn/Einkommensteuer 
Abkürzungen 


<Z> MENUE — zurück zum Hauptmenue 


Bitte wählen Sie <A-D, Z> 


Anleitung : SEITE 1 


Dieses Programm läuft vollständig automatisch ab. Das heißt, Sie brauchen 
nur bei der Eingabe von Zahlen die entsprechenden Zahlen eintippen und die 
Return-Taste drücken. Bei Eingaben, die einen Buchstaben erwarten, braucht nur 
der Buchstabe angetippt werden. 


Um Ihnen die Eingaben weiter zu erleichtern, steht rechts neben der ge- 
forderten Angabe in Klammern die Dimension, z.B. <DM>. Hier muß also eine Zahl 
eingetippt werden. Anschließend die Return-Taste drücken. 


Angaben, die einen bestimmten Wert erwarten, z.B. die Monatsangabe <MM>, 
kann nicht falsch eingegeben werden, da dieses Programm die Eingabe dann auto- 
matisch überwacht. Ist die Zeile abgeschlossen, so wird der Wert an den 
Rand geschoben. Wenn Sie keinen Wert zum Eingeben haben, brauchen Sie 
anstatt der Eingabe "0" nur die RETURN-Taste drücken. 


Bitte wählen Sie ... <W>eiter, <M>enue —> 


Anleitung : SEITE 2 
Falls Sie sich trotzdem einmal vetippt haben, die Zeile aber schon abge- 
schlossen ist, so arbeiten Sie das Programm weiter durch, denn am Ende des 
Bildschirms erscheint jedesmal die Frage: 
: sind alle Angaben richtig ? <J/N> 
Tippen Sie nun "N" ein, so springt der Cursor auf die erste Eingabezeile 
zurück. Zur Kontrolle steht rechts der vorher eingegebene Wert. Sie können 


nun den Wert korrigieren. Alle richtigen Werte müssen allerdings dann erneut 
eingegeben werden. 


Ist ein Programmabschnitt abgeschlossen und Sie kehren zum Hauptmenue zurück, 
so erscheint ein Stern <*> in der abgearbeiteten Zeile, z.B. 
<A> * <-—— Grundangaben 
Hier haben Sie also eine Kontrolle, welcher Abschnitt schon bearbeitet worden 
ist. Wollen Sie einen Abschnitt noch einmal bearbeiten, so ist es jederzeit 
möglich, auch wenn Sie die Abrechnung schon angesehen haben. Diese Variante 
erlaubt es Ihnen Ihr Geld im Rahmen des Erlaubten richtig einzusetzen. 


Bitte wählen Sie ... <W>eiter, <M>enue —> <-> 


Anleitung : SEITE 3 

A A oe å 
Um einen neuen Durchlauf zu starten, drúcken Sie die Taste <X> im Hauptmenue. 

Sie gelangen nun zum Passwort-Schutz zurück. Geben erneut das Passwort ein und 

die Variablen sind auf "0" gesetzt. Aus systemtechnischen Gründen mußte 

dieser etwas umständliche Weg gewählt werden. 


ACHTUNG !!! 


Achten Sie auf die Reihenfolge im Hauptmenue. D.h., um einen einwandfreien 
Durchlauf im Programm zu gewährleisten, ist es erforderlich, daß Sie das Haupt- 
menue von oben nach unten durcharbeiten. Sie fangen also mit dem Programm 
"<A> Grundangaben" an und arbeiten sich nach unten durch. Haben Sie z.B. 


keine <B> 
keine <C> 
keine <D> 
aber <E> 


Einkünfte aus Land- u. Forstwirtschaft, 
Einkünfte aus Gewerbebetrieb, 

Einkünfte aus selbständiger Arbeit, 
Einkünfte aus nichtselbständiger Arbeit, 


so übergehen Sie die Abschnitte <B>, <C>, und <D> und tippen <E> ein. 


Dementsprechend fahren Sie weiter von oben nach unten fort. 
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Bitte wählen Sie <M>enue —> 





Kurzerklårungsmenue : 


Erklårungen aus folgenden Bereichen sind möglich: 


<A> Grundangaben i 

<B> Einkünfte aus der Land- u. Forstwirtschaft 

<C> Einkünfte aus Gewerbebetrieb 

<D> Einkünfte aus selbständiger Arbeit 

<E> Einkünfte aus nichtselbständiger Arbeit 

<F> Einkünfte aus Kapitalvermögen 

<G> Einkünfte aus Vermietung u. Verpachtung 

<H> Sonstige Einkünfte 

<I> Doppelbesteuerungsabkommen u. außerordentl. Einkünfte 
<J> Sonderausgaben 

<K> Außerordentliche Belastungen 

<L> Besondere Abzugsbeträge u. ausländische Steuern 
<M> Einkünfte zur An- und Abrechnung 


<Z> MENUE — zurück zum Helpmenue 


Bitte wählen Sie <A-M, Z> 


Kurzerklärung : Grundangaben SEITE 1 


------ > +--+ o— —— — — — o— > > —— o— — —— —o— —— —— — o— — — ————— —— 


Als Grundangaben benötigt das Programm den Familienstand, das Geburtsdatum, 
die Religion, die Anzahl der Kinder und Zahlkinder. 


Folgende Werte können Sie im Lohn/Eink.-Steuer-Antrag entnehmen: 
Familienstand Zeile 9/15 
Geburtsdatum Zeile 4/72 u. 11/73 
Religion Zeile 4/72 u. 11/73 
Anzahl d. Kinder .. Seite 2, Zeile 29 - 34 
Zahlkinder Seite 2, Zeile 42 u. 43 


Die Angabe des <Familienstandes> dient der Entscheidung, ob die Einkommen- 
steuer oder die Einkommensteuer-Splittingtabelle anzuwenden ist. 
Sie hat ferner die Bedeutung für die Berechnung der Vorsorgepauschale und der 
höchstens abzugsfähigen Vorsorgeaufwendungen, ferner für die Berechnung ganz 
allgemein der Sonderausgaben und der außergewöhnlichen Belastungen. 


Bitte wählen Sie ... <W>eiter, <M>enue —> <> 


SEITE 2 


Kurzerklärung : Grundangaben 


Aus der Angabe des <Geburtsdatums> kann das Programm erkennen, ob der Alters- 
freibetrag von 720 DM für 64jährige oder ob der Versorgungs-Freibetrag für 
62jährige oder schwerbehinderte 60jährige oder der Altersentlastungsbetrag für 
64jährige in Betracht kommt. 

/ 

Falls der Arbeitnehmer/geber oder sein Ehegatte oder beide einer <Religion> 

angehören, ist dies unmißverständlich anzugeben. 


Die Anzahl der <Kinder> ist für die Berechnung besonders wichtig, da hier 
etliche Berechnungen auf die Anzahl der Kinder berührt, z.B. Kinderfreibetrag, 
Prämienspargesetze, Einkommensgrenze usw. 


Unter <Zahlkinder> versteht man die Kinder, die dem Elterteil zugeordnet 
sind, also in der Regel die Kinder, für die der Ehemann Unterhalt zahlen muß. 


Bitte wählen Sie ... <W>eiter, <M>enue —> > 


Kurzerklärung : Grundangaben - SEITE 3 
A EBEN ET TONER Ebel 2a AH 


Das Programm ermöglicht zwei verschiedene Veranlagungsformen: 
l. die Einzelveranlagung, d.h., ein lediger, geschiedener oder verwitweter 
Steuerpflichtiger wird allein veranlagt 
2. die Zusammenveranlagung, d.h., die Veranlagung von beiden Ehegatten 
Das Programm entscheidet anhand der Eingabe <ledig/verheiratet>. 


Bei einer Einzelveranlagung wird zusätzlich abgefragt, ob <Witwensplitting 

zu beachten ist. In den folgenden Fällen ist dies zu beachten: 

l. der Steuerpflichtige ist 1983 verwitwet und hat nicht wieder geheiratet. 
Folge: im Jahr 1984 Einzelveranlagung <ledig> mit Witwensplitting 

2. der Steuerpflichtige wurde 1984 geschieden, oder die Ehe wurde ander- 
weitig aufgelöst, und der Ehegatte hat wieder geheiratet und erfüllt die 
Voraussetzungen für eine Zusammenveranlagung bzw. getrennte Veranlagung. 
Folge: Eine Einzelveranlagung mit Witwensplitting 


Bitte wählen Sie <M>enue —> 





Kurzerklärung : Einkünfte aus Land- u. Forstwirtschaft 


Angegeben wird hier der <Gewinn> aus der Land- u. Forstwirtschaft nach 
Paragraph 13 ESTG. Außerdem ist der <Veräußerungsgewinn> einzugeben, der in 
diesem Gewinn steckt. Der Freibetrag für die Land- u. Forstwirtschaft wird 
automatisch ermittelt. 


Für den <Ermäßigungsbetrag> nach Par. 34e ESTG wird der <Gewinn 84/85> 
aus den verschiedenen Land- u. Forstwirtschaftsbetrieben angegeben, bzw. der 
durch den Feststellungsbescheid festgestellten Höchstbetrag. 


Die Angaben für die Einkünfte aus Land- u. Forstwirtschaft können Sie der 
Anlage L entnehmen, die Sie beim FA erhalten. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Einkünfte aus dem Gewerbebetrieb 


Anzugeben ist hier der <Gewinn> nach Par. 15 ESTG und außerdem auch der 
im Gewinn enthaltene <Veräußerungsgewinn>. 


Die Angaben für die Einkünfte aus dem Gewerbebetrieb können Sie der 
der Anlage GSE entnehmen, die Sie beim FA erhalten. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Einkünfte aus selbständiger Arbeit 


Eingegeben wird der <Gewinn> aus der <freiberuflichen Arbeit> und aus der 
<sonstigen Tätigkeit>. Diese beiden Unterschiede werden in der Berechnung 
berücksichtigt, da der Freibetrag ebenfalls unterschiedlich ist. 


Weiterhin sollen die <Werbungskosten> sowie der <Veräußerungsgewinn> nach 
Paragraph 18, Abs. 3 angegeben werden. 


Für die <Veräußerungsgewinne> gibt es einen ermäßigten Steuersatz nach 
Paragraph 34e ESTG. Bei Angabe des <Veräußerungsgewinns> wird in jedem Fall 
nur der steuerpflichtige Teil eingegeben, d.h., nach Abzug eines Freibetrages. 


Die Angaben für die Einkünfte aus selbständiger Arbeit können Sie der 
Anlage GSE entnehmen, die Sie beim FA erhalten. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Einkünfte aus nichtselbständiger Arbeit SEITE 1 


Die Werte für Bruttolohn, Bezüge, Werbungskosten und die Beträge von Arbeits- 
losengeld <ALG>, Schlechtwettergeld <SWG>, Kurzarbeitergeld <KUG> und Arbeits- 
losenbeihilfe <ALB> werden hier eingegeben. 


Folgende Werte können Sie im Lohn/Eink.-Steuer-Antrag entnehmen: 
Arbeitslohn Anlage N, Zeile 3/10 u. 3/11 
Versorgungsbezige . Anlage N, Zeile 21/32 u. 21/33 
Werbungskosten .... Anlage N, Seite 2, Zeilen 37 - 63 
ALG/SWG/KUG/ALB ... Anlage N, Zeilen l4 - 17 


Der <Bruttoarbeitslohn> ergibt sich aus dem lfd. Lohn aus der aktiven Tätig- 
keit. <Versorgungsbezüge> sind z.B. Beamtenbezüge aus ehemaliger Tätigkeit. 


Für <Werbungskosten> erhält jeder Arbeitnehmer einen Pauschbetrag von 564 DM. 
pro Jahr. Wird dieser Betrag durch tatsächliche Aufwendungen nicht erreicht, 
erübrigt sich der Eintrag auf Anlage N. Beim LST-Jahresausgleich muß in der 
Regel ein einwandfreier Nachweis mit Belegvorlage erbracht werden. 


Bitte wählen Sie ... <W>eiter, <M>enue —> <> 


Kurzerklärung : Einkünfte aus nichtselbständiger Arbeit SEITE 2 


Die <Werbungskosten> beinhalten : 


Fahrten Wohnung — Arbeitsstätte 
Beiträge zu Berufsverbänden 
Aufwendungen für Arbeitsmittel 
Mehraufwendg. f. Verpflegung 
Mehraufwendg. f. dopp. Haushalt 


Bewerbungskosten 
Kilometergeld 
Arbeitszimmer 
Berufskrankheit 
Pauschsätze für bestimmte Berufsgruppen 


Fortbildungskosten 
Telefongebühren 
Umzugskosten 


Ab 1982 unterliegen das <Arbeitslosengeld>, das <Kurzarbeitergeld>, das 
<Schlechtwettergeld> und die <Arbeitslosenhilfe> dem Progressionsvorbehalt, der 
ausschließlich durch das FA zu berücksichtigen ist. Die genannten Lohnersatz- 
leistungen bleiben dabei steuerfrei. Auf das zu versteuernde Einkommen wird 
der höhere Steuersatz angewandt, der sich ergibt, wenn die Lohnersatzleistung 
mit Ihrem Bruttobetrag, wie Arbeitslohn, in die Einkommensberechnung mit einbe- 
zogen wird. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Einkünfte aus Kapitalvermögen 


Bei den Angaben über Ihr Kapitalvermögen werden die Werte <Einnahmen> und 
<Werbungskosten> erwartet. Zu den Einnahmen gehören z.B. Sparzinsen und Divi- 
denden. Bei den Dividenden ist zu beachten, daß die zu versteuernden Einnahmen 
über dem Auszahlungsbetrag liegen. Das bedeutet: 


Auszahlungsbetrag + Kapitalertragssteuer + Körperschaftssteuer = Einkommen 


Die Angaben für die Einkünfte aus dem Kapitalvermögen können Sie der 
Anlage KSO entnehmen, die Sie beim FA erhalten. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : SEITE 1 


Einkünfte aus Vermietung u. Verpachtung 


Die Einkünfte aus Vermietung u. Verpachtung unterteilen sich in zwei Gruppen: 
1) Die Werte fiir <selbstgenutztes Einfamilienhaus>, <selbstgenutzte Eigen- 
'tumswohnung> und das völlig selbstgenutzte Haus. 


Hierbei wird der <Einheitswert>, bzw. Anteil, laut Einheitswertbescheid, 
der <Wohnzweck> mit seiner Prozentangabe über Nutzung des Hauses oder der 
Eigentumswohnung, der Angabe der <Selbstnutzung> in Monaten, die <Schuldzinsen> 
vor der Selbstnutzung (diese sind übrigens voll als Werbungskosten abzugsfähig) 
und <Schuldzinsen> danach (diese sind nur bis zur Höhe des Grundbetrages ab- 
zugsfähig), eingegeben. 


Sollte ein Bauantrag nach dem 30.09.82 gestellt worden sein und ist das Ge- 
bäude bis zum 01.01.87 fertiggestellt, so können bis zu 10000 DM pro Jahr an 
Schuldzinsen für drei Jahre abgezogen werden. 


Außerdem dürfen Sie die Absetzung für die Abnutzung <AFA> für sämtliche 
zulässigen Abschreibungen nach Par.7b IV/V ESTG und Par.82a - g ESTDV geltend 
machen. 


Bitte wählen Sie ... <W>eiter, <M>enue —-> 


Kurzerklärung : Einkünfte aus Vermietung u. Verpachtung SEITE 2 


2) Unter diesen Abschnitt fallen die <Mieteinnahmen> und die <Werbungskosten> 


Hierbei sind die <Mieteinnahmen> für vermietete Häuser und die darauf ent- 
fallenden <Werbungskosten> einzugeben. Unter <Einnahmen> fällt auch der 
Nutzungswert der selbstgenutzten Wohnung und die Nutzungsrechte. Zu den <Wer- 
bungskosten> gehört wiederum die AFA oder die AFA nach Par.7b ESTG für ein 
Haus, bei dem der Bauantrag oder der Baubeginn oder der Erwerbsantrag nach dem 
29.07.81 gestellt, bzw. datiert sind. 


Die Angaben für die Einkünfte aus Vermietung u. Verpachtung können Sie der 
Anlage V entnehmen, die Sie beim FA erhalten. 


Bitte wählen Sie <M>enue —> 
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Kurzerklärung : Sonstige Einkünfte 


Zu den sonstigen Einkünften gehören, die <Einnahmen>, die <Werbungskosten>, 
<sonstige Einnahmen> und die <Werbungskosten> für die sonstigen Einnahmen. 


Bei den <Einnahmen> handelt es sich um Einnahmen nach Par.22.1 ESTG. Das sind 
Renten und wiederkehrende Bezüge. Die Renten werden mit ihrem Betragsanteil und 
die Bezüge werden voll geltend gemacht. Der Ertragsanteil ist dem ESTG zu ent- 
nehmen. Dazu kommen die Einnahmen nach Par.22.la, die sich aus Unterhalts- 
leistungen an den Ehegatten nach Par.10 Abs.l Nr.1l als Sonderausgaben im gegen- 
seitigen Einverständnis ergeben — maximal 900 DM-. Die <Werbungskosten>, die 
in diesem Fall entstehen, werden ebenfalls eingegeben. 


Bei den <sonstigen Eingaben> handelt es sich um Einnahmen, wenn sie im 
Par.22 Nr.2 ff ESTG genannt sind, unter anderem Einkünfte aus Spekulationsge- 
schäften. Auch hier können Sie <Werbungskosten> geltend machen. 


Angaben für die sonstigen Einkünfte können Sie der Anlage KSO entnahmen, die 
beim FA erhalten. 


Bitte wählen Sie <M>enue —-> 


Kurzerklárung : Doppelbesteuerung u. außerordentl. Einkünfte 


Einkúnfte, die unter ein <Doppelbesteuerungsabkommen> fallen und dadurch von 
der Einkommensteuer befreit werden, sind hier anzugeben. D.h., sie werden zwar 
nicht besteuert, aber fúr die Ermittlung des Steuersatzes herangezogen. Die 
daran enthaltenen <außerordentlichen Einkünfte> sind gesondert anzugeben. 


Ebenfalls anzugeben sind <Entschädigungen> nach Par.24 Nr.1l ESTG und 
<Nutzungsvergütungen> nach Par.24 Nr.3 ESTG. <Entschädigungen> und <Nutzungs- 
vergütungen müssen jedoch bereits in einer der sieben Einkunftsarten berück- 
sichtigt sein, z.B. im Gewinn aus dem Gewerbebetrieb. 


Daraus ergibt sich folgende Aufstellung: 
Veräußerungsgewinn + Entschädigung + Nutzungsvergütung = außerordentl. Eink. 
Angaben finden Sie in der Anlage N, Zeile 18/36 u. 39 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Sonderausgaben SEITE 1 


Als Sonderausgaben bezeichnet das ESTG bestimmte Kosten der Lebenshaltung, 
die förderungswürdig erscheinen. Dazu gehören z.B., <Kirchensteuer>, <Steuer- 
beratungskosten>, <Aufwendungen> für die <Berufsausbildung>, <Spenden>, Bei- 
träge an <Bausparkassen>. 


Zu den <Vorsorgeaufwendungen> zählen abzugsfähige Versicherungen, wie 
Kranken-, Unfall-, Haftpflicht- und Lebensversicherungen. <Bausparbeiträge> 
sind nur dann einzugeben, wenn keine Sparprämie beantragt wurde. <Spenden an 
politische Parteien> können nur bei Vorlage der Spendenbescheinigung geltend 
gemacht werden. Dasselbe gilt bei den <sonstigen Spenden>. Hierzu gehören 
Spenden an wissenschaftliche, staatspolitische und als besonders förderungs- 
würdige anerkannte Institutionen. Zu den <unbeschränkten Sonderausgaben> ge- 
hören die Kirchensteuern, die Steuerberatungskosten u. die Ausbildung für die 
Berufsausbildung. 


Bitte wählen Sie ... <W>eiter, <M>enue —> 


SEITE 2 


Kurzerklärung : Sonderausgaben 


Zu den Sonderausgaben gehört weiterhin der <Arbeitnehmer/geber-Anteil> und 
der <Verlustausgleich>. 


Der <Arbeitnehmeranteil> beinhaltet den Arbeitnehmer-Anteil zur gesetzlichen 
Rentenversicherung. Der <Arbeitgeberanteil> dementsprechend den Arbeitgeber- 
anteil zur ges. Rentenversicherung. Der <Verlustausgleich> beinhaltet den 
negativen Gesamtbetrag der Einkünfte des jeweiligen Jahres. 


Angaben können Sie dem EST-Antrag auf Seite 3 entnehmen. Hier sind die 
Zeilen 62 - 85 einzusehen. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Außergewöhnliche Belastungen 


¡qx __ EE _ _ _ ____n  _ ___ __ _—_ _  __ _ _ __ _ _ _ _ _ _ __  _____ —__ __—u———— 


Außergewöhnliche Belastungen sind: <Aufwendungen> n. Par.33, Pakete, Päck- 
chen in die DDR, Besuch aus der DDR, <Unterhaltszahlungen> an Personen ohne 
Kindergeldanspruch und <Ausbildungsfreibeträge>. 


Unter <Aufwendungen n. Par. 33> fallen: Krankheitskosten -soweit nicht er- 
stattet-, Ehescheidungskosten, Beerdigungskosten, Kurkosten, Heim- u. Pflege- 
kosten usw. 


Fir die <Unterhaltszahlungen> an Personen sollten Sie folgendes beachten: 
Höhe der Unterhaltsaufwendunden sind tatsåchlich gezahlte Beitråge. Unterhalts- 
zahlungen Dritter sind geleistete Zahlungen von Dritten an dieselbe Person. 
Unter Einkünfte und Bezüge versteht man die Einkünfte und Bezüge nach Steuer- 
recht, d.h., Einkünfte = Einnahmen — Werbungskosten - Freibeträge/Pauschalen. 

Bezüge = Einnahmen — Unkostenpauschale (360 DM) 


Für den <Ausbildungsfreibetrag gilt dasselbe wie vorgenannt. 


Die Angaben für die außergewöhnlichen Belastungen können Sie dem LST-Antrag 
aus den Zeilen 86 — 94 entnehmen. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Besondere Ermäßigungen 


Zu den besonderen Abzugsbeträgen gehört die Anrechnung ausländischer Steuer- 
beträge, die auf ausländische Einkünfte entfällt. Bei Staaten ohne Doppelbe- 
steuerungsabkommen gilt Par. 34c ESTG>. Weiterhin gehört die Ermäßigung für 
Darlehen zum Berlin-Förderungsgesetz, Ermäßigung für vermögenswirksame 
Leistungen des Arbeitgebers, sowie die Ermäßigung für die Schaffung von Aus- 
bildungsplätzen. i 


Die Angaben können Sie der Anlage N, Zeile 23 - 30 entnehmen. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : An- u. Abrechnung 


Einzugeben sind die Eintragungen der <Lohnsteuer>, <Kirchensteuer>, <Kapital- 
ertragssteuer> und <Körperschaftssteuer> laut Dividendenbescheinigung. 


Die Angaben der Lohn/Kirchen-Steuer kann der Anlage N, Zeile l - 5 entnommen 
werden. 


Bitte wählen Sie <M>enue —> 


Abkürzungen : 


Absatz 

Absetzung für Abnutzung 
Arbeitslosenbeihilfe 
Arbeitslosengeld 
Bundesausbildungsföderungsgesetz 
Betrieb 
Einkommensteuergesetz 
Einkommensteuer 
Finanzamt 
Förderungsgesetz 
Kurzarbeitergeld 
Paragraph 
Schlechtwettergeld 

von Tausend 


Bitte wählen Sie <M>enue —> 
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Fortsetzung von Seite 44 
' 037B FO 06 78 BEQ ENDE 
037D 20 ED FD 79 JS 
CHORZ $057B Cursor horizontal 0380 E8 80 då oO 
CVERT $05FB Cursor vertikal 0381 DO F5 81 BNE CLOSE 
BYTE $067B /O-Byte für PASCAL se ae z di ENDE = aa ;normalisiere Cursor 
START $06FB Bildschirmanfang 0389 4C DO 03 84 JMP DOS ;Warmstart 
POFF $077B  Kaltstart, GOTOXY, Ctrl-Z 038C 85 * 
FLAGS $07FB Video-Schalter u. -Flaggen nn 2 + a TEXT HEX 8D84 
0 C5 7 ASC "OPENSCHIRMTEXT" 
i 0391 CE D3 C3 
BYTE, POFF und FLAGS sollen uns in 0394 C8 C9 D2 
diesem Zusammenhang nicht weiter inter- sd = cb c5 
essieren. Fassen wir außerdem den Bild- 039C 8D 84 88 HEX 8D84 
schirmaufbau grafisch zusammen, wobei 039E D7 D2 C9 89 ASC "WRITESCHIRMTEXT" 
wir vereinfachend annehmen, daß sich der on 
Bildanfang bei $CC00 in Bank O befindet 03A7 D2 CD DA 
(siehe Diagramm 1). 2m 
O3AD 8D 00 90 HEX 8D00 


: = im. O3AF 8D 84 91 TEXT1 HEX 8D84 
Wir betrachten also aus dem 2K RAM im ach = Er Kran 
mer nur ein großes Fenster, das jetzt be- 03B4 D3 C5 
liebig herauf- und heruntergeschoben en 25 eae 

; ; è 00B8 94 ZEND EQU *-START 
werden kann, denn intern schließt sich an 
die Bank 3 wieder die Bank 0 an. Wird für 
uns der Bildschirm z.B. um eine Zeile nach VIDEXT 


oben geschoben, verändert die Videx-Kar- 
te den tatsächlichen Speicherinhalt nicht. 
Lediglich das Fenster wandert eine Zeile 


BSAVE VIDEXT, A$0300, L$00AD 
Initialisieren mit BLOAD VIDEXT 
Aufrufen mit CALL 768 


nach unten, indem die Zeiger neu gesetzt 
werden. Das geht bedeutend schneller, 
als fast 2K um jeweils 80 Bytes zu ver- 
schieben! 


Das Auslesen des Bildschirms 


Nachdem wir nun das Prinzip des Bild- 
schirmaufbaus verstanden haben, können 
wir beginnen, ihn auszulesen und abzu- 
speichern. Eigentlich funktioniert das ge- 
nauso wie beim 40-Zeichen-Schirm, nur 
daß wir hier eine andere Art der Positions- 
berechnung durchführen müssen. Der Ap- 
ple-Monitor hat leider keine Routine bereit, 
aber wir können einen Teil des Videoterm- 
ROMs adaptieren. Wir benötigen folgende 
Informationen: 

1) Start des Bildes 

2) Start der jeweiligen Zeile 

3) RAM-Bank 

4) Seite $CCOO oder $CDOO. 

Wenn wir den Cursor in die erste Zeile 
stellen, sind Zeilenanfang und Bildstart 
identisch, so daB die Punkte 1) und 2) zu 
einer Aufgabe verschmelzen. Ctrl-Y be- 
wirkt dieses „HOME CURSOR“, ohne den 
Bildschirm zu löschen. BASEL und BA- 
SEH liefern dann die Adresse, aus der wir 
nur noch RAM-Bank und Speicherseite 
extrahieren müssen. Dies geschieht durch 
„Bitschieben“ und ist erst auf den zweiten 
Blick durchsichtig. 

Der Zeilenbeginn liegt irgendwo zwischen 
$0000 und $07FF. Betrachten wir hiervon 
nur das höherwertige Byte, so gibt es acht 
Möglichkeiten, die folgende Tabelle zu- 
sammenfaßt: 


0300 20 EA 03 


0306 8D 00 C3 


050B 20 ED FD 


0318 8D 53 AA 


031D 8D 54 AA 


0322 BD 83 03 


0327 20 ED FD 


OMSIDAANGUN KE 


* VIDEXT 
* 

> 

. 

COUT 
DOS 
DOSHOOK 
RUNMODE 
PROMPT 
CURLIN 
LANGUA 
COROM 
INIT 
RETURN 
DOUT 

* 

* 


* 
** Videx 


* 
BASEL 
BASEH 
DEVO 
DISPO 
DISP1 
* 

* 

* 
START 


DISK 


* 
DRUCK 


_ VIDEX1 


EQU $FDED 
EQU $3D0 
EQU $3EA 
EPZ $D9 
EPZ $33 
EPZ $75 
EQU $AAB6 
EQU $CFFF 
EQU $C300 
EQU $FF58 
EQU $AA53 


ORG $300 
OBJ $800 


in Slot 3 


EQU $47B 
EQU $4FB 
EQU $COBO 
EQU $CCOO 
EQU $CD00 


JSR DOSHOOK 


Videx 80 Z/Z -> Diskette 


Il sex 


;LL * Adresse im Bild- 
;HH * Schirmspeicher 
‚Bank Auswahl 

;l. Speicherseite 

;2. Speicherseite 


;DOS Anhängen 


STA COROM ;Koresidente ROMs abschalten 
STA INIT ;Videx-ROM einschalten 
LDA #$99 ;Ctrl-Y 

JSR COUT ; HOME Cursor 

LDA #$80 ;Bit 7 setzen 

STA PROMPT ;ein laufendes 

STA CURLIN+1 ;Applesoftprogramm 

STA RUNMODE ;vortåuschen 

LDA RETURN ;direkte Bildschirm- 
STA DOUT ‚ausgabe unterdrücken 
LDA /RETURN 

STA DOUT+1 

LDX #0 

LDA TEXT,X 

BEQ DRUCK 

JSR COUT 

INX 

BNE DISK 

LDA #24 ;Zeilenzahl 

LDX #80 ;Zeichenzahl 
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High-Byte Dualzahl Seite Bank 
00 0000 $CC00 0 
01 0001 $CDOO 0 
02 0010 $CC00 1 
03 0011 $CDOO 1 
04 0100 $CC00 2 
05 0101 $CD00 2 
06 0110 $CC00 3 
07 0111 $CD00 3 


Schauen wir uns die Dualzahl genauer an, 
so stellen wir fest, daß immer eine 0 in Bit 
0 und Seite $CC00 bzw. eine 1 in Bit O und 
Seite $CD00 zusammenfallen. Um das 
niederwertige Bit zu testen, schieben wir 
es mit der LSR-Instruktion ins Carry-Bit, 
das mit PHP „gerettet“ wird. Es dient in 
Zeile 65 des Listings zur Auswahl der Sei- 
te. 

Bleibt die Frage nach der Bank. Unsere 
Dualzahl hatte vor dem Schieben Einsen 
in den Bits 0, 1 und 2. Nach dem Rechts- 
schieben befinden sie sich nur noch in den 
Bits O und 1. Mit dem Befehl AND #$03 
blenden wir den Rest des Bytes (Bit 7-2) 
weg. Jetzt wird zweimal nach links ge- 
schoben und hinten jeweils eine 0 ange- 
fügt (= ASL). Dadurch erhalten wir für die 
High-Bytes $00 und $01 eine $00, für $02 
und $03 eine $04, für $04 und $05 eine 
$08 und schließlich für $06 und $07 eine 
$0C. Für High-Byte = $06 noch einmal die 
Einzelschritte: 


$06 = 0110 Carry ? 

LSR — 0011 Carry 0 > Seite $CCOO 
ASL < 0110 

ASL < 1100 = $0C 


Den erhaltenen Wert tauschen wir ins Y- 
Register und sprechen damit indiziert den 
richtigen Bank-Schalter an. 

Unser Ausleseprogramm ist noch in eine 
innere Schleife für 80 Zeichen und eine 
äußere Schleife für 24 Zeilen eingebettet. 
Die Diskettenbefehle entsprechen dem 
Programm SCHIRMDISK, nur wurde eine 
Variante zur Vortäuschung eines laufen- 
den BASIC-Programms verwendet. VI- 
DEXT (= VIDex zu tEXTfile) wurde für den 
Speicherbereich ab $0300 assembliert 
und kann mit 

BSAVE VIDEXT, A$0300, L$00AD 
abgespeichert werden. Von BASIC aus 
wird es mit einem CALL 768 gestartet und 
legt dann einen Textfile namens , VIDEX- 
TEXT“ auf Diskette ab. Ein Programmstart 
mittels Reset wurde nicht realisiert, weil 
dabei einige Register in Unordnung ge- 
raten. 
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0331 
0332 
0332 
0335 
0336 
0337 
0339 
033A 
033B 
033C 
035F 
0342 
0343 
0545 
0348 
034A 
034D 
0350 
0352 
0355 
0355 
0358 
0359 
035B 
035C 
035D 
O35F 
0361 
0361 
0363 
0366 
0368 
036B 
036C 
036E 
0371 
0374 
0374 
0377 
037A 
037D 
0380 
0383 
0383 
0385 
0388 
038B 
038E 
0391 
0392 
0394 
0397 
039A 
039D 
0340 
0342 
0344 
0344 
03A6 
03A9 
O3AB 
O3AD 
OOAD 


FB 


03 


BO 
7B 


05 


03 
00 
7B 
03 
FB 


04 


CO 


04 


CC 


CD 
04 


04 


FD 


03 


FD 


C9 
D6 
C5 
C5 


CF 


91 


93 


94 
95 


100 
101 
102 


PHA 


Retten 


** Routine verändert nach Videx-ROM ** 


VIDEX2 LDA 
LSR 
PHP 
AND 
ASL 
ASL 
TAY 
STA 
LDY 
PLP 
BCS 
LDA 
BCC 
LDA 
INC 
BNE 
INC 


VIDEX3 
VIDEX4 


BASEH 


+3 ; 


DEVO, Y 
BASEL 


VIDEX3 
DISPO,Y 
VIDEX4 
DISP1,Y 
BASEL 
VIDEX5 
BASEH 


;Hi-Byte-Position 


70000 0011 


‚Softswitch für Bank 
;Low-Byte-Position 


:1. Seite 


;2. Seite 

‚erhöhe Low-Bytes 
:Uberlauf? 

‚dann auch Hi-Byte 


** Ende verándertes Videx-ROM xx 


VIDEX5 JSR 
DEX 
BNE 
PLA 
SEC 
SBC 


BNE 


LDX 
LDA 
BEQ 
JSR 
INX 
BNE 
JSR 
JMP 


CLOSE 


ENDE 


ASC 


TEXT HEX 


ASC 


HEX 
ASC 


HEX 


TEXT1 HEX 


ASC 
HEX 


ZEND EQU 


COUT 


VIDEX2 


;Zeichen ausgeben 


;bis Zeile fertig ist 


;hole Zeilenzähler zurück 


#1 
VIDEX1 


+0 
TEXT1,X 
ENDE 
COUT 
CLOSE 
$C300 
DOS ; 


"1984 DR. KEHREL" 


8D84 
"OPENVIDEXTEXT" 


8D84 
"WRITEVIDEXTEXT" 


8D00 


8D84 
"CLOSE" 


8D00 


*-START 


;nåchste Zeile 
;bis alle fertig sind 


;Bildschirm ankoppeln 


Warmstart 


Hinweis: Diese Programm wurde mit dem LISA-Assembler erstellt. 
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Programmierzeif auf die Hälfte gekürzt! 
Speicherbedarf auf ein Drittel reduziert! 


EXBASIC LEUELIT 


Mit EXBASIC LEVEL II können Sie Ihren Computer 
um ein Vielfaches einfacher und effizienter pro- 
grammieren. Sie haben über 7/5 neue, auBerst 
leistungsfähige Funktionen, die den Erfordernis- 
sen moderner Software-Erstellung entsprechen. 
Fur Computer von ... 


g ® 
@appic C= commodore 


EXBASIC LEVEL II ist bereits weltweit im Einsatz. 
Schreiben Sie sofort „Schicken Sie kostenlos aus- 
führliche Informationen zu EXBASIC LEVEL Il fdr 
(genauen Computertyp angeben!)” 


INIERFACE AGE 


Verlag GmbH 
Josefsburgstraße 6 
8000 München 80 
Tel.: 089/43 40 89 








Ein Spielerlebnis, das Sie fantastische 
Stunden an Ihrem Apple erleben lassen wird! 


Erleben Sie ın 100 versch. Räumen die unglaublichen | 
Abenteuer eines Menschen, der auf Daumengröße 
geschrumpft ist. 

Ein gigantisches Abenteuer, eine neue Welt, 
dargestellt in über 200 versch. Farben. Dieses Programm 
spricht mit Ihnen deutsch oder englisch. Die deutsche 

Anleitung zu diesem Spiel gibt Ihnen einen Einblick in 
die Welt der Abenteuer-Spiele. Es ist ein 
außergewöhnliches Programm zu einem ungewöhnlichen Freis. 
Lassen Sie sich faszinieren von dieser neuen Welt! 
Bestellen Sie noch heute! 


Zum Bestellen einfach 59.- DM plus 3.- DM® 
Forto/Verp. als Verr.-Scheck oder in bar an 
FANTASTIC-Software Abt. 2151, Grasweg 7, 
2857 Langen 3 einsenden. 
5 ¡Bei Lieferung per NN zuzügl. 5.- DM Sp 











ELECTRONIC ARTS ORIGIN SYSTEMS DATASOFT 
In Amerika schon Standard... 
hier groß im Kommen : 


Mockingboard 


Sprach- und Tongenerator fur Apple Il, //e 


6-stimmiger Stereoton mit den neuen 
Programmen der grof3en Softwarehauser : 

*Music Construction Set *One On One 

*Skyfox *Ultima Ill *2axxon u.v.m. 


PENGUIN SIERRA ON-LINE 
SNOILY INWIS 019317 3815 





Appleland Walliser & Co. 
Mönchseestr. 99 7100 Heilbronn Tel07131/60048 





WS 2000 
WORLD STANDARD 
MODEM 





ai Pee 
~ WIEWTEXT 


Rx DATA £ "> 390/300 
SP x= $200 7 » 


* CONTROL 


CARRIER Y iu 
po ON LINE 


ON LINE 


LOCAL TEST | ORG 





RAGE dem ws 2000 


Die neue Version dieses weltweit 
benutzten professionellen Modems 


— immer noch zum un- i 

schlagbaren Preis von DM 198 ya 

x Datenaustausch und Kommunkation mit praktisch 
jedem Computer weltweit möglich 


Zugriff zu Datenbanken, Mailboxen, Btx, Btx rück- 
wärts usw. 


vr 

x Telex flr alle durch einen neuen Dienst — mit Ihrem 
Computer und dem WS 2000 (fragen Sie uns) 

x 


Alle gängigen Baudraten (75, 300/300, 600, 1200, 
1200/75, 75/1200) und international üblichen Uber- 
tragung-Standards (CCITT, BELL) — umschaltbar 
per Hand oder per Computer (IC-Satz SK1 hierfür 
DM 96,90; Anschlußkabel UPL DM 48,-) 

x Automatisches Wählen mit Zusatzplatine AD2 
(DM 199,50) und Kabel UPL 

% Automatisches Annehmen von Anrufen mit Zusatz- 
platine AA2 (DM 199,50) 

x Einfacher Anschluß (parallel zur Telefonleitung); 
eingebautes Netzteil; deutsche Anleitung; 1 Jahr 
Garantie 

Xx Viele Interfaces lieferbar; z. B. 

CBM I für C64/VIC20 einschl. Listing DM 136,80 
AC Kommunikations-Karte für APPLE DM 330,60 
SPEC für SPECTRUM einschl. Software 

(auf ROM) DM 256,50 

Xx Anschlußkabel zwischen Computer und Modem 

(bitte benötigten Steckertyp angeben) DM 57,- 

Liefermöglichkeit: sofort ab Lager Hamburg 

Alle Preise einschließlich MwSt. zuzüglich Ver- 

packung, Porto und Nachnahme (Bei Vorauszah- 

lung durch V-Scheck/Uberweisung Porto und Ver- 
packung frei) 


Claus F. Erbrecht 


Computer Related Products 
Lappenbergsallee 37 - 2000 Hamburg 20 
Telefon 040/850 52 55 

Bankverbindung: Bank fur Gemeinwirtschaft 
BLZ 200 101 11, Konto-Nr. 1241223700 


x 


Achtung: Nur für hausinterne Telefon-Anlagen und 
nicht amtsberechtigte Nebenstellen — in der BRD ist der 
Anschluß an das öffentliche Telefonnetz nicht gestattet! 
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von Dieter Geiß 


Viele Berichte und Aufsätze befassen 
sich mit dem Aufbau des Inhaltsver- 
zeichnisses (Directory) auf pascalfor- 
matierten Disketten. In den meisten 
Darstellungen werden jedoch nicht alle 
Komponenten des Directory erfaßt, in 
keinem Artikel wirklich alle Komponen- 
ten genau erklärt. Deshalb bringen wir 
nunmehr eine umfassende Analyse 
des Directory, die auch als theoreti- 
sche Basis für das GETPAS-Programm 
dient. 
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Zero-Kommandos bewerkstelligen. 


Pascal-Directory 
der Lupe 


Jede Diskette, die unter einem UCSD- 
Pascal-Betriebssystem für Apple-Compu- 
ter formatiert wurde, ist in logische Blöcke 
unterteilt. Ein Block beherbergt 512 Bytes, 
und auf einer normalen 140K-Diskette ha- 
ben 280 Blöcke Platz. Auf Block O und 1 
steht das Maschinenprogramm für den 
Boot-Vorgang. Ab Block 2-5 folgt das Di- 
rectory, das genau 4 Blöcke umfaßt. Die 
letzten 20 Bytes bleiben unbenutzt. Ab 
Block 6 folgt dann entweder ein zweites 
Directory, das sog. „Duplicate-Directory“, 
oder der freie Diskettenplatz zum Abspei- 
chern der Files (siehe Abb. 1). 

Das „Duplicate-Directory“ wird vom Pas- 
calsystem wie das Original-Directory ge- 
führt, und sollte letzteres einmal defekt 
sein, was nicht selten vorkommt, so kann 
man mittels eines kleinen Programms (s. 
COPYDUPDIR) das „Duplicate-Directory“ 
auf das Original-Directory überspielen. 
Voraussetzung ist allerdings, daß das 
„Duplicate-Directory“ angelegt wurde. 
Dies kann man im FILER mit Hilfe des 
Für 
Datendisketten, auf denen sich viele Pas- 
cal-Programme befinden, ist das durchaus 
anzuraten. 

In Listing 1 ist die vollständige Definition 
des Directory enthalten 


Die Konstanten 


Maxdir (Maximum Number of Directory 
Entries) gibt die maximale Anzahl der Ein- 
träge im Directory an. Der erste Eintrag ist 
mit Null indiziert und definiert die Art des 
Directory. Dann kommen die Angaben für 
insgesamt 77 Files. Mehr Files können 
niemals im Directory stehen, auch wenn 
man die Anzahl der Directory-Blöcke 
künstlich erhöht. 

In der Anleitung, die zu den Teac-Laufwer- 
ken mitgeliefert wird, ist zu lesen, daß die 
Kapazität des Directory erhöht wurde, da 
die Laufwerke bis zu 1280 Blöcke pro 
Diskette ansprechen können. Da alle Sy- 
stemkomponenten wie SYSTEM.PAS- 


unter 

















Diskette Block 
0 
Bootstrap-Loader 1 
2 
Directory 7 
5 
6 
„Duplicate- Directory” A 
oder frei 2 
9 
10 
freier ` 
Diskettenplatz ° 
279 


Diagramm 1 


CAL, SYSTEM.FILER etc. immer nur 4 
Blöcke einlesen können, kann die Modifi- 
kation, die die Teac-Techniker anspre- 
chen, niemals funktionieren, es sei denn, 
daß das Betriebssytem selbst völlig umge- 
schrieben wurde. 

Vidleng (Volume Identification Length) 
begrenzt die Anzahl der Buchstaben in 
einem „Volume-Namen“ auf 7. 

Tidleng (Title Identification Length) gibt 
an, aus wievielen Buchstaben sich ein 
File-Name maximal zusammensetzt. Die- 
se 15 Buchstaben dürfen keine Leerzei- 
chen oder Ctrl-Zeichen enthalten. 
Fbiksize (File Block Size) bedeutet die 
Anzahl der Bytes pro Diskettenblock 
(Block Size = Blockgröße). 

Dirblk (Directory Block) definiert die Stelle 
auf einer Diskette, auf der das Directory 
steht (erster Block). 





Dupdirbik (Duplicate Directory Block) 
zeigt auf die Stelle des „Duplicate-Direc- 
tory“ (erster Block). 


Die Typen 


Daterec (Date Record) ist die Definition 
des Datums im Pascal-Betriebssystem. 
Ein Datum ist, da es in einem gepackten 
Record steht, immer 16 Bit groß. Beim 
Jahr muß man sich ein 19.. hinzudenken, 
was einen Bereich von 1900 — 1999 ab- 
deckt. Steht im Directory-Eintrag eines 
Files das Jahr des dazugehörigen Datums 
auf 100, so ist dieser File nicht-permanent. 
Einen solchen File kann man in einem 
Programm mittels des Rewrite-Befehls er- 
zeugen. Schließt man den File nicht mit 
der Lock-Option im Close-Befehl, sondern 
nur mit der Normal-Option, dann wird der 
File nicht im Directory gespeichert. Nor- 
malerweise kann man diesen File dann 
nicht mehr sehen, wenn man ein L(ist der 
Diskette ausgibt. Ein normaler Close-Be- 
fehl wird vom Compiler immer in den Code 
eingefügt, wenn irgendwelche Files be- 
nutzt werden. Deswegen dürfte eigentlich 
der Fall eines falschen Jahrs im Datum 
niemals auftreten. 

Manchmal steigt der Compiler aber auch 
wegen zu geringen Speicherplatzes mit 
Stack Overflow aus. Dann kann dieses 
Datum nicht mehr verbessert werden, weil 
das System neu gebootet werden muß. 
Man kann dann diesen File auch nicht 
mehr im FILER mit R(emove ,File-Name' 
löschen, weil der File nicht mehr gefunden 
werden kann. Mit einem R(emove und 
XXX=, falls der Name z. B. XXX lautet, 
erreicht man dann aber doch ein Löschen 
des Files. Manchmal wird ein solcher File 
auch vom System gelöscht; darauf kann 
man sich aber leider nicht verlassen. 
Dirrange (Directory Range) ist der zuläs- 
sige Bereich für Indizierungen in das Di- 
rectory. 

Vid (Volume Identification) definiert den zu 
Vidleng gehörigen String, während 

Tid (Title Identification) den zu Tidleng 
gehörigen String definiert. 

Filekind ist ein Aufzählungstyp, der alle 
Arten von Files benennt, die im Directory 
vorkommen können. Dazu gehören: 
Untypedfile: Von diesem Typ ist der Di- 
rectory-Eintrag selbst und steht zuerst in 
Block 2; entspricht der Indizierung des 
Directory-Arrays mit dem Index 0. 
Xdskfile (Examined Disk File) ist Bad File 
mit defekten Blöcken, der mit dem FILER- 
Kommando X(amine markiert werden 
kann. Daher ergibt sich die seltsame Ab- 
kürzung für ein markiertes d(i)skfile. 


Codefile, Textfile, Infofile, Datafile, 
Graffile, Fotofile sind als File-Typen er- 
zeugbar, wenn eine Datei mit dem ent- 
sprechenden Suffix .CODE, .TEXT usw. 
geöffnet wird. Ob ein Codefile dann tat- 
sächlich Code, ein Graffile tatsächlich ein 
Grafikbild enthält, ist eine Sache der Inter- 
pretation. Auch eine zufällige Anordnung 
von Bits kann man als — wenn auch nicht 
gerade ästhetische — Grafik ansehen. 


Securedir (Secure Directory) ist in kei- 
nem Handbuch dokumentiert, was aber 
nicht bedeutet, daß es hier nicht erklärt 
werden kann. Untersucht man nämlich 
den Pcode des Pascalsystems genauer, 
so entdeckt man in Segment 5 (GETCMD) 
und Segment 0 (PASCALSYSTEM), wann 
ein Securedir abgefragt wird. Um zu ver- 
stehen, was dort vor sich geht, muß man 
sich auch den Informations-File SYSTEM.- 
MISCINFO genauer ansehen. Der File SY- 
STEM.MISCINFO wird beim Booten des 
Systems und bei dessen Initialisierung 
eingelesen. Darin befinden sich die Infor- 
mationen über die Konfiguration des Sy- 
stems wie Höhe und Breite des Bild- 
schirms, ob eine Uhr angeschlossen ist 
usw. In diesem File befindet sich aber 
auch eine Variable namens ,Userkind". 
Diese Variable ist vom Aufzåhlungstyp und 
kann folgende Werte annehmen: Normal, 
Aquiz, Booker und Pquiz. Beim regulåren 
System wird diese Variable auf Normal 
initialisiert, und da diese Variable nicht oh- 
ne einen Trick im File SYSTEM.MISCINFO 
veråndert werden kann, bleibt in ihr auch 
der Wert erhalten. Das Pascalsystem ver- 
sucht bei Zugriff auf ein Directory zu er- 
kennen, ob dieses gültig ist. Ob dies der 
Fall ist, hängt von der Art des Directory 
(Untypedfile, Securedir) sowie vom User- 
kind ab. Ein Directory ist genau dann ein 
gültiges Pascal-Directory, wenn 

a) der Dfirstblk (s.u.) gleich Null und der 
Userkind gleich ‚Booker‘ ist, 

b) der Typ des Directory gleich Securedir 
und der Userkind entweder ‚Aquiz‘ oder 
‚Pauiz‘ ist (Die ausgeschriebenen ameri- 
kanischen Ausdrücke für Aquiz und Pquiz 
konnten noch nicht ermittelt werden.), 

c) der Typ des Directory gleich Untypedfile 
und der Userkind gleich ‚Normal‘ ist. 

Fall c) ist der Normalfall. 

Nachdem die Einzelfälle abgetestet wur- 
den, versucht das System zu erkennen, 
ob die Directory-Einträge in Ordnung sind. 
Dazu wird die Länge der Dvid und die Zahl 
der Files auf der Diskette (Dnumfiles) 
überprüft. Da der Dfirstbik auf allen Disket- 
ten immer auf Null gesetzt ist, kann man, 
wenn man sich im Modus ,Booker' befin- 


pascal 94 


INPUT 2.0 


Ein Bildschirm-Maskengenerator 
fúr DOS 3.3 und ProDOS 
von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1021-5 


Der für den Apple Il bestimmte Mas- 
kengenerator „Input 2.0“ basiert auf 
den früheren Programmen „Input 
1.0“ und „Input 80 1.0“ (von denen 
noch Restbestände lieferbar sind) 
und ist sowohl unter DOS 3.3 wie 
auch unter dem neuen ProDOS lauf- 
fähig. Der Maskengenerator setzt ei- 
nen Apple Il Plus mit Language Card 
oder einen Apple Ile voraus. Im 40 Z/ 
Z-Modus funktioniert er auf beiden 
Gerätetypen, im 80 Z/Z-Modus dage- 
gen nur auf dem Apple Ile mit 80- 
Zeichen-Karte. (Die alte Videx-Karte 
für den Apple Il wird nicht unter- 
stützt!) 

„Input 2.0“ liegt wahlweise in der 
Bank 1 oder Bank 2 der Language 
Card und wird durch einen kurzen 
Driver in den unteren 43K aufgerufen. 
„Input 2.0“ läßt sich problemlos in 
nicht-compilierte und compilierte 
Applesoft- sowie in Assemblerpro- 
gramme einbinden. Die Übergabe der 
Feldinhalte an das Anwenderpro- 
gramm erfolgt durch ein einfaches 
Verfahren, das auch bei Compilern 
funktioniert. 

Für jedes Feld der Bildschirmmaske 
lassen sich u. a. definieren: Feldlänge 
(bis zu 255 Zeichen) — Vtab — Htab — 
Datentyp (insgesamt 8 Typen) — 
Scrollflag (starre oder dynamische 
Maske) — Ctrlflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80 Zei- 
chendarstellung). Innerhalb eines 
Eingabefeldes besteht jeder denkba- 
re Redigierkomfort (Insert, Delete, 
Rubout, Restore usw.). 


Bei der neuen Version des Masken- 
generators können jetzt auch Ctrl- 
Zeichen beim Datentyp String einge- 
geben werden. Ferner sind — das gilt 
nur fur lle — die Apfeltasten als 
schnelle Cursortasten definiert. 


Gerátevoraussetzung: Apple lle oder 
IIc; ferner Apple II+ im 40-Zeichen- 
modus 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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det, die Directories aller Disketten lesen, 
ob Securedir oder Untypedfile. Steht im 
Userkind der Wert für ‚Normal‘, so kann 
man zwar normale, nicht jedoch Secure- 
Directories lesen. Dies erklärt auch den 
Namen des „sicheren Directory“. Sie sind 
vor jedem normalen Benutzer sicher. Im 
Userkind ,Aquiz' und ,Pquiz' kann nur ein 
Secure-Directory gelesen werden, keines 
vom Typ ‚Untypedfile‘. Während man im 
,Pquiz'-Modus normal arbeiten kann, also 
editieren, compilieren usw., geschieht im 
‚Aquiz‘-Modus folgendes: 

Nach dem Booten der (Secure-Directory-) 
Diskette wird wie beim normalen Booten 
zuerst der File SYSTEM.ATTACH gestar- 
tet, mit dem man Disketten- oder Drucker- 
treiber anschließen kann. Danach wird wie 
gewöhnlich SYSTEM.STARTUP geladen 
und ausgeführt. Das entspricht beim DOS 
dem sogenannten HELLO-Programm, 
beim ProDOS dem STARTUP-Programm. 
Nach dessen Ablauf geht das System aber 
nicht in die Kommandozeile, sondern 
sucht den File SYSTEM.WRK.CODE, um 
ihn zu starten. Nach dessen Ablauf bootet 
das System neu. Ist nur der SY- 
STEM.WRK.TEXT allein vorhanden, wird 
er zuerst compiliert, bevor er ausgeführt 
werden kann. Ohne SYSTEM.WRK.TEXT 
wird ein noch zu spezifizierender File 
compiliert und ausgeführt. Das Secure- 
Directory ist also dazu da, um im Userkind 
,Aquiz' das Programm im File SY- 
STEM.WRK.CODE auszuführen und dann 
wieder neu zu starten. Da kein normaler 
Benutzer das Directory lesen kann, kann 
auch keiner ohne weiteres die einzelnen 
Files kopieren. Die ganze Diskette hinge- 
gen kann ganz normal im FILER oder z. B. 
mit COPYA kopiert werden. Selbst kann 
man solche Disketten allerdings nicht her- 
stellen, da man sonst im Initialisierungs- 
segment des Pascalsystems etwas andern 
muBte. Selost wenn man mit einem Disk- 
Read-Write-Programm das Directory auf 
Securedir und auch im SYSTEM.MISCIN- 
FO den Userkind auf ‚Aquiz‘ verstellt, so 
kann das System die Diskette nicht lesen, 
denn der Userkind wird beim Booten auf 
‚Normal‘ gestellt, bevor SYSTEM.MISCIN- 
FO eingelesen werden kann. Man müßte 
also entweder SYSTEM.APPLE oder SY- 
STEM.PASCAL patchen. So scheint das 
Secure-Directory nur für System-Pro- 
grammierer gedacht zu sein. 

Man sollte im übrigen Secure-Directories 
nicht mit Duplicate-Directories verwech- 
sein, denn beide haben nichts miteinander 
zu tun. 

Subsvol (Subsidiary Volumes) sind Un- 
terdirectories, ähnlich wie beim ProDOS, 
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Directory [1] 
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Diagramm 2a: Directory [0] und [1] 


anderen Einträgen enthält Dfirstblk immer 
den korrekten Wert für den Anfang des 
Files. 

Diastblk (Last Block of Disk File) zeigt 
nicht etwa auf den letzten Block des Files, 
sondern auf den Block, der diesem folgt. 
Die Variable müßte eigentlich Dnextblk 
heiBen. Dlastblk zeigt beim Eintrag des 
Directory selbst auf Block 6 oder 10, in 
Abhängigkeit davon, ob ein „Duplicate- 
Directory“ angelegt wurde oder nicht. 
Dfkind (Disk File Kind) unterscheidet nun, 
um welchen Typ es sich bei dem jeweili- 
gen File handelt. Im Falle eines Directory, 
also des Typs Untypedfile oder Securedir, 
verzweigt die Definition in den ersten Ast 
mit seinen Variablen. 

Filler1 ist ein 13-Bit-Fúller für Aufwärts- 
kompatibilitat. 

Dvid (Disk Volume Identification) enthält 
den Namen der Diskette und darf sieben 
Buchstaben nicht überschreiten. 

Deovblk (Disk End of Volume Block) ent- 
hält die Anzahl der Blöcke, die auf einer 
Diskette vorhanden sind. Diese Zahl muß 
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Diagramm 2b: Directory [0] und [1] als Sektor-Dump 


aber sie sind erst in Pascal IV.1 implemen- 
tiert und nur der Vollståndigheit halber im 
Filekind mit aufgenommen, da Pascal- 
IV.1-Disketten den gleichen Aufbau des 
Directory haben. Ein Subsidiary Volume 
sieht nach außen aus wie ein File. In ihm 
befindet sich aber in den ersten sechs 
Blöcken wieder ein vollständiges Directo- 
ry, das dann über weitere Unitnummern 
angesprochen werden kann. 

Direntry (Directory Entry) ist der eigentli- 
che Eintrag im Directory. In diesem Re- 
cord wird unterschieden, ob es sich um 
Directory-Informationen oder um File-In- 
formationen handeln soll. Gleich sind aller- 
dings die beiden ersten Variablen des Re- 
cords. Zum folgenden s. Abb. 2a und 
Abb. 2b. 

Dfirstbik (First Block of Disk File) zeigt auf 
den ersten Block des Files. Ist der Eintrag 
ein Directory, also vom Typ Untypedfile 
oder Securedir, dann enthält Dfirstblk im- 
mer die Zahl 0, obwohl sich die erste 
gültige Information auf Block 2 befindet. 
Dies ist die einzige Ausnahme. Bei allen 


also geändert werden, wenn man größere 
Laufwerke anschließen will. 


Dnumfiles (Number of Files in Directory) 
ist die aktuelle Anzahl von Files, die sich 
auf der Diskette befinden. 


Dloadtime (Disk Load Time) gibt die Zeit 
an, wann das Directory zum letzten Mal 
gelesen oder geschrieben wurde. Nur 
wenn eine Uhr im Rechner eingebaut ist, 
wird diese Zahl benutzt, um festzustellen, 
ob ein Directory aktualisiert werden muß. 


Dlastboot (Last Boot of Disk) schließlich 
ist das Datum, das man mit Hilfe des 
D(ate-Kommandos im FILER setzen kann 
und das beim Booten in das System-Da- 
tum übernommen wird. 

Ist die Art des Eintrags ein File, so ver- 
zweigt die Definition in den anderen Ast. 
Filler2 ist ein 12-Bit-Füller für Aufwärts- 
kompatibilitåt. 

Status wird vom FILER benutzt, um die 
Files zu markieren, die mit einem , Wild- 
card“ angesprochen wurden. 

Dtid (Disk Title Identification) ist der Name 





DISTAR für APPLE-II 


* APPLE-II kompatibel 


DISTAR für IBM u.å. 


* IBM PC kompatibel 
* double sided, DD, 48 TPI 























* Stahlband-Positionierung 


* halbspurfåhig * Kabel får 

% 40 Spuren, 163 KB DISK-II-Controller Å ore ic 539 e 
* Spur-0-Erkennung * kann DOS 3.3, Pascal, * Direktantrieb “a 5 

* Direktantrieb CP/M 






















* Stahlbandpositionierung 
Wir sind DISTAR-Distributor 


16-Bit Computer IBM-PC kompatibel: 
IBM-look Gehåuse, 128K, 2 Drives DS. 4780,-- 
Nt. 100 W, deutsche Tastatur, Monochrom-Karte, 
Motherboard mit 1 par. + 2 ser. + Disk-Interf., auf 
1MByte ausbaubar 


ll, II + lle 498,- llc 527,- 
APPLE-II kompatibel 


COMPUTER 


fert. aufgebauti. Gehäuse, 8 Slots, verst. Schalt- 
netzt., Zeichnungen. deutsch od. ASCII, Ziffernbl., 
incl. Handbuch, ohne Firmware 

























































SENTINEL-Disketten m. Verstärk.-Ring 
double density 10/50/100 49,--/230,--/450,-- 
VIDEX ULTRATERM 

max. 4096 Z/Screen 1170,-- 
80 Zeich. verbessert. Darstellung 184,-- 
ext. Softswitch f. 80-Zeich.-Karte 39,90 
80 Zeich. dto. Softsw. integriert 269,-- 
16K-, Z80-, Disk-Controller, 

par. Interf. (graf.) f. NEC m. Kabel 129,-- 


Matrixdrucker KDC FT-5002 1198,-- 
ASCII- + IBM-Mode wåhlbar, 1K Buffer, 40 eig. 
Zeich. per Softw. definierbar 

120 Z/s, 8 Schriftarten (mischbar), 

11 internat. Zeich.-såtze, hoch- + tief- 

stellen f. math. Anw., Traktor + Friktion 

qualit. hochwertig. Schönschriftmodus 


Typenraddrucker KDC WP-550 1498,-- 
Typrad m. 100 Zeichen, 14 Z/s, Traktor 









































Monitor spez. f. IBM-TTL-Anschluß 519,-- 
dto. amber anstatt grünem Bildsch. 539,-- 
































PC-48: 48K, 6502 Proz. 999,-- RS232C async. (wie Apple high speed) 149,-- Baugruppen: + Friktion, ser. + Centr. par.-Eingänge 
PC-64: 64K, 6502 Proz. 1099,-- Super-Serial-Interface 298,-- Motherboard wie oben 2053,-- seriem., Pap.-Breite 15”, WORDSTAR- 
PC-64z: 6502 + Z80 Proz. 1199,-- Grappler + Print. Interf. m. Kabel 169,-- kompatibel, Option: Einzelblatteinzug 


Monochrom-Display Karte 390,-- 
Color Graphics Karte 529,-- 
Netzteil 100W 434,-- 


PC-64zE:wie PC-64z, Geh. IBM-look, 1399,-- 
abgesetzte deutsche Tastatur 


Grappler + incl. 64K Buffer 599,-- 
128k Karte incl. Pseudodisk-Softw. 499,-- 





4-Farb-Plotter KDC FPL-2000 2190,-- 
200 mm/s, 0,1 mm Genauigkeit, 0,05 mm 














Aufpreis Monitor grün entsp. 279,-- Parallel Karte (2x6522) 149,-- Schritt, Farben per Spftw. anwählbar 
Aufpreis Monitor bernst. entsp, 314,-- Experimentier-Karte 39,-- Wetzel ION Bed ser. + Centr ar.-Ein sie serienm 
Aufpreis Disk (slimline) + Geh. + Contr 585,-- Firmware in EPROMs S7,-- 512KByte RAM-Karte (OKRAM) MG 500 Byte er rn atibel 
IBM-look-Tastatur m. Apple-Adapter 349,-- dto. mit BASIC-Lehrbuch (Sybex) oT Gehäuse f. Computer IBm-look 279,-- A E 


Papierbreite ca. 300 mm (DIN A 3) 













Joysticks 49,-- bis 69,-- | EPROM-Burner plus + Harddisk 10MByte mit Host-Adapt IT ek Ge ME Fe 
Drives 5,25" f. APPLE II Contr: mit Nulikraft-TEXTOOL-Sookel einschl. cc Main DS: DD 589,—; | nern. Ausland Vorkanas; Node aumfähnicheinfo 
SIEMENS, Spur-0-Sensor, II+, Ile 599 -- Software f. 2704/8/58/16/32, 2516/32 Tastatur US ASCII 399,-- p i , . i 

, , ’ , F eh gegen DM 1,40 in Briefmarken. 
Doppeldiskstation 1,2 MByte 2399,-- u. 2764, 27128, 27256, zeitoptimiert 373,-- Tastatur deutsch 429,-- 








jetzt mit Schnellprogramm.-Modus 
Zusatz zur Progrmg. des 8748/49/55 218,-- 


Ingenieurbüro Dipl.-Ing. R. Springmann 
Stöckener Straße 199 - 3000 Hannover 21 


2 80-Spur-Laufwerke (2x640K) m. Spezial-Con- 
troller, eigenes Gehäuse u. Netzteil 











SENTINEL-Disketten ds, dd 10 Stck. 70,-- 





TEMBSTONE-MICRO 


Th. Tank & G. Körber 


MESON Il, 48 K 1100,- DM Joyport, zum AnschluB von zwei 

MESON II, 64 K ATARI-Joysticks 40,- DM 
(16 K + Z 80-Card) 1250,- DM ADD2 B, (VIA 6522) 

beide Rechner mit 10er-Block, 1 Jahr Garantie mit RAM + Backup 170,- DM 
Z 80-Card 125,- DM ADD2 L, Leerplatine 55, — DM 
16 K-Card 125,- DM ADD4 B, (PIA 6821) 

Floppy-Disk 5” 480,- DM mit RAM + Backup 150,- DM 
Controller-Card 150,- DM ADD4 L, Leerplatine 45,- DM 
PAL-Card + Modulator 170,- DM PIA-Card mit’Wrap-Feld ausgerüstet 


MESON Il, Leerplatine 85,- DM ; 
Tastaturen und Gehäuse auf Anfrage Entwicklungen auf Anfrage 


Gardeschützenweg 72, 1000 Berlin 45 
® 030/833 1303 (SHOP), Q 7465728 (BURO) 





N A EEE A 


woman — KULRNAI TM 
pep se =" MICROCOMPUTER 


Das deutsche 
Apple-Il-ROM-Listing ist da! 
— Einleitung zum prinzipiellen Ablauf des Applesoftinterpreters: 
— Aufbau und Verarbeitung der/des i 
— Programmtextes — Variablentabelle — Stringspace 
— Fließkommaformate — Basicstacks (GDSUB, FOR-NEXT, ...) 


— Beschreibung der wichtigsten Unterprogramme, z. B. Varia- 
blensuche, Garbage collection, Ausdrucksauswertung, 






















I ® ® 
appie & CP/M 
SOFTWARE HARDWARE LITERATUR 


SpeeDemon von M-c.-T 
DM 1368.- 


Machen Sie Ihren APPLE II+/e bis 3,5 x schneller !! 


i i CHRGET, ... è . 
a Ei id Gap : Dere ren Slot 2 - Vollständig disassemblierte und sehr ausführlich deutsch kom- Listin g 
Nur ein Beispiel unserer Leistungsfåhigkeit! Verlangen mentierte Auflistung des Applesoft-BASIC-Interpreters Er 
PJ AM EG pe LE — Übersichtliche Auflistung aller vom Interpreter benutzten RAM- eae 
Zellen mit allen Verwendungszwecken 
— Über 150 ausführlich dokumentierte Unterprogramme: von Matthias Buck 
— Funktion — Ein-/Ausgabeparameter FE 


Auch für Apple-Ile und c und Kompatible! 
Außerdem folgende ROM-Listings vorrätig: 





Karl-Heinz Weiß 


Am Wiesenhof 17 -2940 Wilhelmshaven TRS-80 Model |,Geniel+ll...........----. 69,50DM iy. Buck: Apple lI-ROM-Listing 
TRS-80 Model ill ec. .«—2....oÁ..n92..01..3................ 79,- DM (116 S. DIN A4, kartoniert. 
Colour-Genle ... 2... cette eens 59,- DM 59 DM, Best.-Nr : 06-010-8) 





Preis inkl. MwSt./Händleranfragen erwünscht! 
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des Files, der eine Länge von maximal 15 
Buchstaben haben kann. 

Dlastbyte (Last Byte of Disk File) gibt an, 
welches das letzte Byte im letzten Block 
ist, das beim Lesen benutzt werden soll. 
Das System erkennt an dieser Variablen, 
wann ein File zu Ende ist, wenn es sich 
bereits im letzten Block befindet. Nur bei 
Data-Files, z. B. einem File of Integer, wird 
diese Zahl benutzt. Text- oder Codefiles 
haben immer eine 512 in Dlastblk. 
Daccess (Disk Access) ist das Datum, das 
immer gesetzt wird, wenn der File modifi- 
ziert worden ist. Dies wird intern durch den 
Close-Befehl bewirkt. Das Jahr im Datum 
wird — wie schon oben erwähnt — benutzt, 
um nicht-permanente Files zu markieren. 


Directory ist nun das Array von Directory- 
Einträgen, also das die gesamten 4 Blocks 
umfassende Directory. Das Element, das 
mit O indiziert wird, also Directory [0], ist 
vom Typ Untypedfile oder Securedir und 
enthält die Information für das Directory 
selbst. Die anderen Einträge enthalten die 
Information für die Files. 


Mit der Directory-Definition in einem Pro- 
gramm kann nun ein Benutzer Disketten- 
informationen verwerten und auch modifi- 
zieren. In dem Beispielprogramm (COPY- 
DUPDIR) wird das „Duplicate-Directory“ 
einer Diskette auf das normale Directory 
überspielt, wenn erkannt wird, ob dieses 
defekt ist. Das Programm fragt nach der 


Unitnummer, die eine der Zahlen 4, 5, 9, 
10, 11 oder 12 sein kann. Dann wird das 
Directory gelesen. Ist das Original-Direc- 
tory in Ordnung, wird das Programm ver- 
lassen. Andernfalls wird es auf das Origi- 
nal-Directory übertragen. Wenn auf der 
Diskette die Blöcke 2-6 schlecht sind, 
müssen diese zuerst repariert werden, 
was z. B. im FILER mit dem X(amine- 
Kommando gemacht werden kann. Nach 
Ablauf des Programms ist das Directory 
der Diskette wiederhergestellt. 


GETPAS: Konvertierung von Pascal- in DOS-Textfiles 


von Ulrich Stiehl 


Unsere „Peeker“ wird komplett auf dem 
Apple lle erfaßt, wobei die Druckerei ko- 
dierte DOS-Textfile-Disketten zur Ubertra- 
gung in die Lichtsatzanlage erhålt. Zu die- 
sem Zweck wurde ein superschnelles 
Transmitterprogramm entwickelt, das mit 
einer Übertragungsrate von bis zu 1000 
Bytes/Sekunde (einschließlich des Einle- 
sens der Dateien von der Apple-Diskette!) 
die Daten online Uber eine V.24-Schnitt- 
stelle an den GroBrechner der Satzanlage 
schickt. Neben dem Transmitterprogramm 
muBten mehrere Spezialprogramme zur 
Vorkodierung und zur Konvertierung in 
DOS-Textfile-Format geschrieben wer- 
den. In diesem Peeker-Heft sowie in den 
folgenden Ausgaben werden wir einige 
der interessanteren Spezialprogramme 
vorstellen. 


GETPAS 


Das nachstehend gelistete Programm 
GETPAS zur Konvertierung von Pascal- in 
DOS-Textfiles stammte ursprünglich von 
Dana J. Schwartz vom Washington Apple 
Pie. Es hatte jedoch einen Bug, der bei 
größeren Dateien zu einer Zerstörung des 
DOS-Catalogs führte, und außerdem war 
es für unsere Zwecke viel zu langsam. 
Deshalb wurde es gestrafft, völlig umge- 
schrieben und durch ein Assemblerpro- 
gramm für alle zeitkritischen Routinen er- 
weitert, so daß es jetzt eine Datenübertra- 
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gungsrate von bis zu 480 Bytes/Sekunde 
(bei Diversi-DOS und NOMON) für Einle- 
sen und Speichern vorweisen kann. 


Konvertierungsvorgang 


Aus Gründen der Geschwindigkeit und 
der Speicherkapazität ist das GETPAS- 
Programm „gekruncht“ und damit weitge- 
hend undurchschaubar. Deshalb geben 
wir hier nur einige generelle Anmer- 
kungen: 

1. GETPAS erwartet die DOS-Diskette in 
S6, D1 und die Pascal-Diskette in S6, D2, 
ist also nur für 2-Drive-Besitzer gedacht. 
Nach RUN GETPAS muß man lediglich 
den Pascal-Textfile-Namen eingeben. Das 
ist alles. Ist der Dateiname unbekannt, so 
kann man sich durch Eingabe von Return 
allein zunächst das Pascal-Directory an- 
sehen. 

2. Die DATA-Statements poken in den 
Bereich $1800-$18FF ein Maschinenpro- 
gramm, das die RWTS, die Tab-Konvertie- 
rung usw. umfaßt. Der Quellcode hierzu ist 
auf der Peeker-Sammeldiskette enthalten. 
3. Der Speicherbereich $1900-$20FF 
nimmt zunächst die 4 Pascal-Directory- 
Blocks 2-5 auf, aus denen der Name so- 
wie die erste und letzte Blocknummer der 
Datei extrahiert werden. $1900-$20FF 
wird damit nur vorübergehend benötigt. 

4. Danach wird — beginnend mit dem zwei- 
ten Dateiblock — der gesamte Pascal-Text- 


file in 2-Block-Schüben in den Bereich 
$1900-$1CFF eingelesen und von dort in 
den eigentlichen DOS-Textfile-Puffer 
$1D00-$99FF (dies sind maximal 32000 
Bytes) Ubertragen. Dabei wird die pascal- 
typische Tabulatorkodierung $10 $XX (= 
Tab $XX), wobei $XX — $20 die Anzahl der 
Tab-Spaces impliziert, in echte Leertasten 
konvertiert. Eventuelle Ctrl-Zeichen wer- 
den eliminiert. 

5. SchlieBlich wird der konvertierte Textfile 
aus dem Puffer, auf die DOS-Diskette ge- 
schrieben. 


Konvertierungsfehler 


Zu den häufigeren Fehlern gehören: 

1. Es sind nicht zwei Laufwerke an Slot 6 
angeschlossen. 

2. Die zu übertragende Pascaldatei ist kein 
Textfile. 

3. Der erzeugte DOS-Textfile ist gröBer als 
32000 Bytes. 


AbschlieBend sei darauf hingewiesen, daB 
HUFFIN mit jedem DOS låuft (DOS 3.3, 
Diversi-DOS usw.), jedoch nicht får Pro- 
DOS gedacht ist. Eine ProDOS-Spezial- 
version wird zu einem spåteren Zeitpunkt 
publiziert. Diese ist übrigens erheblich un- 
komplizierter, da Pascal und ProDOS bei- 
de eine gleichartige Diskettenblockorgani- 
sation haben. 





Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., 
DM 28,- 


Dies ist die erste deutschspra- 
chige Darstellung des Disket- 
tenbetriebssystems DOS 3.3 
für den Apple II/II Plus/lle, die 
sich sowohl an Applesoft- als 
auch an Assembler-Program- 
mierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt aus- 
führlich die dem Applesoft-Pro- 
grammierer zur Verfügung ste- 
henden DOS-Befehle, wobei 
die Textfiles wegen ihrer gro- 
Ben Bedeutung und der ver- 
gleichsweise komplizierten 
Handhabung besonders darge- 
stellt werden. Viele Textfile- 
Tricks werden hier zum ersten- 
mal geschildert. 

Aber auch im zweiten Teil fin- 
det der reine Applesoft-Pro- 
grammierer insbesondere in 
dem Kapitel „Vermischte Tips, 
Tricks und Patches“ zahlreiche 
Anregungen. Im übrigen ist der 
zweite Teil für Assembler-Pro- 
grammierer gedacht. Neben ei- 
ner detaillierten Beschreibung 
der DOS-Interna enthält dieser 
Teil elf vollständige RWTS-An- 
wenderprogramme - z.B. 
CPM-Refiner, DOS-lose Da- 
tendisk, TSL-Maker, File- 
Reader, Pseudo-Disk-Driver 
und Fastbrun-Routine —, die 
Techniken enthüllen, die bis- 
lang noch niemals publiziert 
worden sind. Dieses DOS- 
Buch ist deshalb der unent- 
behrliche Begleiter für jeden 
Apple-Programmierer. 


Apple Il 

Basic Handbuch 
von Douglas Hergert 
304 Seiten, 116 Abb. 
DM 32,- 


Das Buch ist als Nachschlage- 
werk konzipiert, daß seinen 
Platz neben jedem APPLE II, 
II+ und lle haben sollte. Es 
richtet sich an Anfänger und 
fortgeschrittene Program- 
mierer. 





Aus der Praxis heraus präsen- 
tiert der Autor Tips und Vor- 
schläge, die das Programmie- 
ren leichter und zugleich effi- 
zienter machen. Alle Applesoft- 
und Integer-BASIC-Begriffe 
sind alphabetisch aufgelistet 
und werden eingehend erklårt. 


Dazu werden alle DOS-Befehle 
(neben vielen Begriffen der 
Computerterminologie) vorge- 
stellt. 

Beispielprogramme zeigen 
dem Nutzer, wie jeder Befehl 
funktioniert und helfen, die rich- 
tige Anwendung zu üben. Un- 
ter anderem lernt der Leser 
den besten Weg, um FOR/ 
NEXT-Schleifen und IF/THEN- 
Entscheidungen für seine 
Zwecke einzusetzen. 

Durch die präzise und leicht 
verständliche Sprache des Au- 
tors werden auch schwierige 
Befehle einfach in der Anwen- 
dung. 


Apple Maschinen- 
sprache 

von Don und Kurt Inman 
1984, 208 S., zahlr. Abb. und 
Tabellen, DM 49,- 


SPRACHE 





Dieses Buch ist wahrscheinlich 
die beste Einführung in die 
6502-Programmierung für den- 
jenigen Assembler-Anfänger, 
der zuvor noch nie ein Maschi- 
nenprogramm geschrieben 
hat. 

Aus dem Inhalt: 

Applesoft II BASIC - kurzge- 
faBt — Alles über Zeichen - Al- 
les über Speicher — Alles über 
Maschinenbefehle — Maschi- 
nenprogramme mit BASIC ein- 
geben — Graphik — Text- Ton — 
Arithmetik — Was tun mit den 
Maschinenprogrammen 


Apple ll 

leicht gemacht 

von Joseph Kascmer 

1984, 185 S., zahlr. Abb., kart., 
DM 28,- 


Dies ist ein Buch, wie es sich 
jeder Apple-Anfänger nur wün- 
schen kann: Schrittweise, 
leichtverständliche Anleitung 
zum Umgang mit dem Apple 
mit einigen durchsichtigen, un- 
komplizierten Beispielen in Ap- 
plesoft, die ihn nicht Abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher ver- 
traut zu machen. Damit ist „Ap- 
ple II leicht gemacht“ das idea- 
le Einsteigerbuch für den rei- 
nen Anwender, der nicht nur 
„auf den Knopf drücken“, son- 
dern zumindest einige Details 
aus der Black Box namens Ap- 
ple erfahren will. 





Aus dem Inhalt: 

Kontrolle des Geräts — Schrei- 
ben und Zeichnen auf dem 
Bildschirm — Geheimnisvolle 
Abläufe: Programme — Ver- 
schiedene Eingriftsmóglichkei- 
ten — Mobile Speicher: Disket- 
ten — Kontrollmóglichkeiten — 
Das Innenleben 


Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 
1984, 226 S., 3 Abb., kart., 
DM 34,- 


„Apple Assembler“ wendet 
sich an alle, die bereits Anfän- 
gerkenntnisse der 6502-Pro- 
grammierung haben - z. B. 
aufgrund des Buches „Apple 
Maschinensprache“ — und nun- 
mehr ein Nachschlagewerk für 
ihren Apple II Plus/lle/llc su- 
chen, in dem alle wichtigen 
ROM-Routinen sowie eine 
Vielzahl sonstiger Hilfspro- 
gramme in einer systemati- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt die- 
ses Buch über 40 Utilities, dar- 
unter mehrere völlig neuartige 
Programme wie Double-Lores, 
Double Hires, Screen-Format 
u. a. 

Der erste Teil enthält ein Repe- 
titorium der wichtigsten Befeh- 
le, Adressierungsarten und 
sonstigen Besonderheiten des 
6502. 

Im zweiten Teil werden alle 
Adressen des Monitors zusam- 
mengestellt, die für Assembler- 
Programmierer von Nutzen 
sein können. Darüber hinaus 
findet der Leser Unterroutinen 
für hexadezimale Addition/ 
Subtraktion/Multiplikation/Divi- 
sion, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit 
der Speicherverwaltung der 
Language Card und der lle- 
64K-Karte und enthált Move- 
Programme zum Verschieben 
von Daten in die und aus der 
Language Card sowie der 64K- 
Karte. 


Der vierte Teil ist dem Ap- 
plesoft-ROM gewidmet und li- 
stet eine große Anzahl nützli- 
cher Interpreter-Adressen. Bei 
den Utility-Programmen liegt 
das Schwergewicht auf FlieB- 
kommamathematik einschlieB- 
lich Print Using. 

Der letzte Teil behandelt den 
Text- und Graphikspeicher. 
Neben einem professionellen 
Maskengeneratorprogramm 
werden auch Routinen zur 
Double-Lores- und Double-Hi- 
res-Grafik vorgestellt. 


Arbeiten mit dem 
Macintosh 


von N. Hesselmann 
416 Seiten, 320 Abb. DM 54,— 


Das Buch erklärt den Umgang 
mit dem Macintosh von Grund 
auf, wobei auch auf elementare 
Dinge eingegangen wird, wie 

z. B. die Benutzung der Tasta- 
tur und der Maus, das Einlegen 
von Disketten und den System- 
start. Ganz besonderes Augen- 
merk wird auf die Erklärung der 
speziellen Software-Umge- 
bung des Macintosh gelegt, 
wobei das Menü- und Fenster- 
konzept sowie das Anwählen 
durch Piktogramme gekenn- 
zeichneter Funktionen klar dar- 
gestellt wird. 





Der Umgang mit den Program- 
men MacPaint und MacWrite 
wird erlåutert; dies geschieht 
teilweise anhand von Beispie- 
len, die leicht nachvollzogen 
werden können. Ein umfangrei- 
ches Kapitel ist dem für den 
Macintosh erhältlichen Micro- 
soft-BASIC gewidmet. 


BASIC Ubungen 

für den Apple 

von J. P. Lamoitier 

1983, 252 S., zahlr. Abb., kart., 
DM 38,- 


Das Buch ist konzipiert, allen 
Apple-Anwendern Applesoft- 
BASIC durch praktische Ubun- 
gen an Hand von reellen Pro- 
grammen beizubringen. Daten- 


BUCH-SHOP 


verarbeitung, Statistik, kom- 
merzielle Programme, Spiele 
und vieles mehr. Jede Ubung 
beinhaltet eine Beschreibung 
der Problemstellung, eine Ana- 
lyse der Lösungsmöglichkei- 
ten, ein FluBdiagramm und ein 
fertiges Programm samt Pro- 
belauf. 





Aus dem Inhalt: 
Ihr erstes BASIC-Programm — 
Flußdiagramme — Ubungen mit 
Integerzahlen — Elementare 
Beispiele aus der Geometrie — 
Allgemeine Ubungen aus der 
Datenverarbeitung — Mathema- 
tische Berechnungen — Kauf- 
männische Berechnungen — 
Spiele — Operations Research 
— Statistik 


Apple ProDOS 
für Aufsteiger 
Band 1 


von Ulrich Stiehl 
1984, 202 S., kart., DM 28,- 


ProDOS ist das neue „profes- 
sionelle DOS“ (Professional 
Disk Operating System) für den 
Apple Ile sowie den mit einer 
Language Card ausgestatteten 
Apple Il Plus. Band 1 befaßt 
sich mit den theoretischen 
Grundlagen von ProDOS, der 
internen und externen Spei- 
cherorganisation und enthält 
grundlegende Beispielpro- 
gramme für Assembler-Pro- 
grammierer sowie generelle 
Untersuchungen zum BASIC- 
SYSTEM. Da ProDOS über er- 
heblich vielfältigere und lei- 
stungsfähigere, zugleich je- 
doch erheblich kompliziertere 
Dateistrukturen verfügt, sind 
theoretische Kenntnisse von 
ProDOS unabdingbar, wenn 
man die Features von ProDOS 
voll ausschöpfen will. 

Aus dem Inhalt: 

Ein erster Überblick — ProDOS 
und DOS 3.3 — Interne Spei- 
cherorganisation — Externe 
Speicherorganisation — MLI 
(Machine Language Interface) 
— ProDOS fur Applesoft-Pro- 
grammierer 
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PRINT CHR$ (4)"PR#3": PRINT : INVERSE : PRINT "GETPAS: 
DOS,D1 <-— PASCAL,D2": NORMAL : PRINT CHR$ (4) "UNLOCK 
GETPAS, S6,D1" 

DATA 169,24,160,18,32,217,3,176,1,96 (4) ; "CLOSE" 

DATA 173,31,24,141,17,24,96,0,1,96 PRINT CHR$ (4)"NOMON 0": PRINT CHR$ (4)"MAXFILES3": 
DATA 2,0,0,0,36,24,0,0,0,0 END 
DATA 1,0,0,96,1,234,0,1,239,21 S = 
DATA 76,49,24,76,86,24,76,210,24,169 

DATA 0,133,206,169,29,133,207,169,0,168 

DATA 145,206,200,208,251,230,207,166,207,224 
DATA 154, 144,243,169,0,141,84,24,169,29 

DATA 141,85,24,96,0,0,169,0,133,254 

DATA 169,25,133,255,173,84,24,133,206,173 
DATA 85,24,133,207,160,0,177,254,201,0 

DATA 240,87,201,13,240,20,201,32,176,16 

DATA 201,16,208,17,160,1,177,254,160,0 

DATA 201,33,144,13,176,20,145,206,32,171 R: GOSUB 53:S = N:U = Z: GOSUB 56:S = 0:U = Al: GOSUB 
DATA 24,32,185,24,76,104,24,32,185,24 56:Y = R + 1: GOSUB 53:S = P:U = Z: GOSUB 56:S = Q:U = 
DATA 32,185,24,76,104,24,170,169,32,145 Al: GOSUB 56: RETURN 

DATA 206,32,171,24,202,224, 32,208, 244, 240 T= INT (Y / 8):Bl = ( 
DATA 232,230,206,208,9, 230,207, 165,207,201 = Al + 1: IF Bl = 0 THE 
DATA 154,144,1,0,96,230,254, 208,20, 230 IF Bl = 7 THEN Al = 15 
DATA 255,165,255,201,29,144,12,104,104,165 RETURN 

DATA 206,141,84,24,165,207,141,85,24,96 POKE F,T: POKE G,U: POKE H,S: 
DATA 169,0,133, 206,169, 29,133,207,160,0 (D) = 0 THEN RETURN 

DATA 177,206,240,16,9,128,32,237,253,200 TEXT : PRINT CHR$ (7);"RWTS-FEHLER. "; 
DATA 208,244,230,207,165,207,201,154, 144, 236, 96 POP : END 

RESTORE S = INT (B / 256):T = 0: FOR U = 11 TO 4 STEP - 1: 

FOR X = 6144 TO 6384: READ Y: POKE X,Y: NEXT GOSUB 56:5 = S + 1: NEXT U:B$ = "":0C1 = B + 6: FOR I = 1 
PRINT CHR$ (4) "MAXFILES1'" TO PEEK (C1):B$ = B$ + CHR$ ( PEEK (C1 + I)): NEXT I 
HIMEM: 6144: CLEAR :A = 6144:B = PRINT B$;":":C$ = "":X = 1:Dl = PEEK (B + 16): IF Dl = 
E=AH+18:F=EH+4:6 =E+5:H E + 9 O THEN INPUT "<LEER> ";D$: RETURN 

PRINT : INPUT "TEXTFILE <CR = DIR>:";A$: IF LEN (A$) = 0 FOR I = 1 TO Dl:El = B + I * 26 + 6:Cl = 
THEN GOSUB 58: GOTO 39 Cl = 0 THEN GOTO 62 

GOSUB 46: IF K< > 3 OR L - M < 4 THEN PRINT CHR$ FOR J = 1 TO C1:0$ = C$ + CHR$ ( PEEK (El + J)): NEXT 
(7);"TEXTFILE NICHT GEFUNDEN": GOTO 39 Jt PRINT 7 1:08:05 = m = X 1 
CALL 6184:N = INT (B / 256):0 =N+1:P=0+1:Q IF X > 20 OR I = Dl THEN PRINT : 
1:R = M+ 2: GOSUB 52 NEXT I: RETURN 

CALL 6184 + 3:R = R + 2: IF R = L THEN 44 PRINT "Urversion von D.J.Schwartz 1981, durch 
GOSUB 52: GOTO 42 Maschinenprogramm getrimmt von U.Stiehl 1984" 


HOME : PRINT CHR$ (4)"UNLOCK GETPAS,D1": PRINT CHR$ 
(4)"MON 0": PRINT CHR$ (4);"OPEN"A$: PRINT CHR$ 
(4);"WRITE"A$: CALL 6184 + 6: PRINT : PRINT CHR$ 


INT (B / 256):T = 0: FOR U= 11 TO 4 STEP - 1: 
PEEK (B + 16):W = B + 


GOSUB 56:S = S + 1: NEXT U:V = 
32:X = LEN (A$) 
IF PEEK (W) < > X THEN 50 
FOR J = 1 TO X: IF PEEK (W+J) < > ASC ( MID$ 
(A$,J,1)) THEN 50 
NEXT J:M = PEEK (W- 6) + PEEK (W - 5) * 256:L = PEEK 
(W - 4) + PEEK (W - 3) * 256:K = PEEK (W —- 2): RETURN 
W + 26:V = V - 1: IF V > 0 THEN 47 
— 1: RETURN 


Y/8-T) * 8:Al = 2 * (7 - Bl):Z 
NZ=0 


POKE D,0: CALL C: IF PEEK 


PEEK (D): POP : 


6400:C = A:D = A + 17: 


PEEK (El): IF 


INPUT "";D$:X = 1 





GETDOS: Konvertierung von DOS- in Pascal-Textfiles 


von Jürgen Geiß 


Mit Hilfe des Programms GETDOS lassen 
sich DOS- in Pascal-Textfiles konvertie- 
ren. Dabei kann eine Textdatei maximal 93 
Sektoren (23.552 Bytes) umfassen. GET- 
DOS wurde in Pascal geschrieben und 
wird deshalb von Pascal aus gestartet. Es 
ist das Gegenstück zu GETPAS, mit dem 
sich Pascal- in DOS-Textdateien umwan- 
deln lassen. 


Nach dem Start des Programms erwartet 
GETDOS die Eingabe einer Source-Unit 
(= DOS-Diskette). Als Source-Unit sind 
alle gültigen Pascal-Unit-Nummern von 4- 
12 erlaubt, z.B. #5 für DOS-Diskette in 
Drive 2. Als Destination-Units können ne- 
ben der Pascal-Diskette (z. B. #4 für Pas- 
cal-Diskette in Drive 1) noch zusätzlich die 
Unit-Nummern 1-3 angegeben werden. 
Damit ist es möglich, den DOS-Textfile 
direkt auf den Bildschirm (Unit #1) auszu- 
geben. Meistens wird aber das Schreiben 
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auf eine Datei bevorzugt. Nach dem Ko- 
pieren kann dann der Text z. B. mit dem 
UCSD-Editor weiterverarbeitet werden. 
Man beachte, daß man den Dateinamen 
des zu konvertierenden DOS-Textfiles be- 
reits kennen muß, da GETDOS im Gegen- 
satz zu GETPAS nicht den DOS-Catalog 
anzeigen kann. 

Eine Anwendung für das Konvertieren ei- 
ner DOS-Textdatei könnte etwa das Ent- 
wickeln eines Assemblerprogramms für 
Pascal sein. Das Assemblerprogramm 
kann dann unter DOS mittels Single Step 
(Einzelschrittbetrieb) getestet werden. 
Nach dem Konvertieren kann die Textdatei 
mit dem UCSD-Editor in UCSD-Assem- 
blersyntax umgeschrieben werden. Da es 
in Pascal keine guten Debugging-Möglich- 
keiten für Assemblerprogramme gibt, ist 
dies fast die einzige Alternative, um länge- 
re Assemblerprogramme fehlerfrei in Pas- 
cal zu implementieren. 


Anmerkung der Redaktion: GETDOS dient 
ferner dem Zweck, die auf den Peeker- 
Sammeldisketten als DOS-Textfiles abge- 
speicherten Pascal-Programme in das 
Pascal-Betriebssystem zu übernehmen. 
Wegen der geschweiften Klammern usw. 
verwenden wir bei den DOS-konvertierten 
Pascal-Files auf der Sammeldiskette nur 
den amerikanischen Zeichensatz. In den 
abgedruckten Listings kodieren wir jedoch 
aus ästhetischen Gründen meist die Um- 
laute und Eszett in den Menüanweisun- 
gen. Es gilt folgende Zuordnung für deut- 
sche und amerikanische ASCII-Sonder- 
zeichen: 


$5B = Ä = | 
$50 =Ö=N 
$5D = Ü =] 
$7B=ä={ 
Cie] 
$7D =U =} 
$7E =B = ~ 


program Getdos (input, output); 


Beer) 


{ 


{ Dieses Programm konvertiert DOS 3.3 } 


} 


{ Textfiles in Pascal-Textformat } 


{ } 


(GBI II kkk a} 


const Max = 23551; 
Page 256; 
ClearEOL 29; 
Clearscreen = 12: 


type Byte 0.255; 
Units I... 
Untypedfile file; 
Sector = record 
Block : 0..7; 
Half : (First, Second) 
end; 


var Map : packed array [0..15] of Sector; 
Buf : packed array [0..511] of Byte; 
Text : packed array [0..Max] of Byte; 
Sourcefile : string; 
Destfile : string; 
Sourceunit : Unite; 
Destunit : Unite; 
Drives : set of Units; 
Block : integer; 
Track : integer; 
Sec : integer; 
Blockcount : integer; 
I : integer; 
Ptr : integer; 
done : boolean; 
found : boolean; 
Ch : Char; 
F : file of char; 
Diskfile : Untypedfile; 


{ aaa ak aa ak aka ak aka aa aaa aaa aaa aa) 
procedure Initialize; 


begin {Initialize} 

Map [00].Block := 0; 

Map [00].Half := First; 

Map [01].Block := 7; 

Map [01].Half := First; 

Map [02].Block := 6; 

Map [02].Half := Second; 
Map [03].Block := 6; 

Map [03].Half := First; 

Map [04].Block := 5; 

Map [04].Half := Second; 
Map [05].Block := 5; 

Map [05].Half := First; 

Map [06].Block := 4; 

Map [06].Half := Second; 
Map [07].Block := 4; 

Map [07].Half := First; 

Map [08].Block := 3; 

Map [08].Half := Second; 
Map [09].Block := 3; 

Map [09].Half := First; 

Map [10].Block := 2; 

Map [10].Half := Second; 
Map [11].Block := 2; 

Map [11].Half := First; 

Map [12].Block := 1; 

Map [12].Half := Second; 
Map [13].Block := 1; 

Map [13].Half := First; 

Map [14].Block := 0; 

Map [14].Half := Second; 
Map [15].Block := 7; 

Map [15].Half := Second 

end; {Initialize} 


GEES III II III a a a ak ak ak ak ak 


procedure Printat (Y : integer; S : string); 
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begin {Printat} 

gotoxy (0, Y); 

write (chr (ClearEOL), S) 
end; {Printat} 


{ akak ak ak ak ak ak ak a a a ae ae ae ak ak ak ak ak ak ak ak ak ak ak aka aka aaa) 
procedure Uppercase (var S : string); 
var I : integer; 


begin {Uppercase} 

for I := 1 to length (S) do 

if S [I] in ['a!..'z'] then S [I] := chr 
(ord (S[I]) - ord (' ')) 
end; {Uppercase} 


(klokker ] 
procedure Getnames; 


var OK : boolean; 
Dest : string; 


begin (Getnames) 
Drives := [4..5, 9..12]; 
repeat 
write (chr (Clearscreen)); 


Printat (1, '*xx* GETDOS dokk"); 


. 
, 


ji 
) 


, 


Printat (3, ' 1. CONSOLE: 2. SYSTERM: . GRAPHIC: ') 
Printat (4, ' 4. DISK #4: 5. DISK #5: . PRINTER: ' ) 
Printat (5, ' 7. REMIN: 8. REMOUT: . DISK #9: ' 
Printat (6, '10. DISK #10: 11. DISK +11: . DISK #12:' 


Printat (8, 'DOS 3.3 Disk: (4, 5, 9.12); 
readln (Sourceunit) ; 

Printat (10, 'Pascal Ausgabegerät (1-12): 
readln (Destunit); 

Printat (12, 'DOS 3.3 Filename: '); 
readln (Sourcefile); 

Uppercase (Sourcefile); 


Destfile := Sourcefile; 

if pos ('.TEXT', Sourcefile) = 0 then 
Destfile := concat (Sourcefile, '.TEXT'); 

str (Destunit, Dest); 


case Destunit of 
1 : Destfile := 'CONSOLE:'; 
2 Destfile := 'SYSTERM: '; 
3 : Destfile := 'GRAPHIC:'; 
4, 
5, 
9, 
10, 
ll, 
12 : Destfile := concat ('#', Dest, ':', Destfile); 
6 : Destfile := 'PRINTER:'; 
7 : Destfile := 'REMIN'; 
8 : Destfile := 'REMOUT' 
end; {case} 


Printat (14, concat ('Pascal Filename: ', Destfile)); 
Printat (16, '<RETURN> startet, <ESCAPE> beendet, 
<SPACE> wiederholt'); 

read (keyboard, Ch); 
OK := eoln (keyboard) ; 
if Ch = chr (27) then exit (program) 
until OK; 
end; {Getnames} 


GEE BOBS SIS III IK ik ak ak ak 
procedure Readsec; 


begin {Readsec} 
Block := (Track * 8) + Map [Sec].Block; 


unitread (Sourceunit, Buf, 512, Block); 
if IOresult <> 0 then exit (program); 


case Map [Sec] .Half of 
First : moveleft (Buf [0], Text [Ptr], Page); 
Second : moveleft (Buf [Page], Text [Ptr], Page); 
end; {case} 
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Ptr := Ptr + Page 
end; {Readsec} 


(feel lol aaa ae aaa aaa) 
procedure Readsource; 


const Bytesperentry = 35; 
Header Il; 
Blanks =! 
{25 blanks} 


Name : string [30]; 
Filetype : Byte; 

Limit : integer; 
Sectorcount : integer; 


else Blockcount := Sectorcount div 2; 


fillchar (Text, size_of (Text), 0); 
Printat (18, 'Lese file'); 
Pir := 0; 


for I := 1 to Sectorcount do 
begin 
write ('.'); 
Track := List [I, 0]; 
Sec := List [I, 1]; 
Readsec 
end 


end; {Readsource} 


AE AE AE E E E E EI kaa} 
Entry : integer; 
List : packed array [1..80, 0..1] of Byte; procedure Writedest: 


begin {Readsource} var Nextbyte: Byte; 


{liest DOS 3.3 Katalog von Spur 17, Sektoren 15-1} 
Printat (18, 'Lese Katalog'); 

Track := 17; 
Pir = 0; {Nimm den Anfang des Textes} 


for Sec := 15 downto 1 do 
begin 

Readsec; 

write ('.') 
end; 


{Suche DOS 3.3 Eintritt} 

Limit := Ptr - 1; 

Ptr := Header; 

Entry := 0; 

Sourcefile := concat (Sourcefile, ' '); 


repeat 
Name := copy (Blanks, 1, length (Sourcefile)); 
Entry := Entry + 1; 
for I := 1 to length (Sourcefile) do 
Name [I] := chr (Text [Ptr + I + 2] - 128); 
found := Name = Sourcefile; 


if not found then {erhoehe Ptr} 
begin 
if (Entry mod 7) = 0 then Ptr := Ptr + Header: 
Ptr := Ptr + Bytesperentry 
end; 
until found or (Ptr > Limit); 


if not found then 

begin 
write (chr (7)); 
Printat (18, 'Fehler: File nicht gefunden'); 
exit (Readsource) 

end; 


Track := Text [Ptr]; 

Sec := Text [Ptr + 1]; {Track/Sector Liste} 
Filetype := Text [Ptr + 2]; 

Sectorcount := Text [Ptr + 33] - 1; 


if ((Filetype <> 0) and (Filetype <> 128)) or 
(Sectorcount > Max div 256) then 
begin 
Found := false; 
write (chr (7)); 
Printat (18, concat ('Fehler: ', 
Sourcefile, 'ist kein Textfile')); 
exit (Readsource) 
end; 


Ptr := 0: 
Readsec; 
Ptr := 12; 


for I := 1 to Sectorcount do 
begin 
List [I ,0] := Text [Ptr]; 
Ptr := Ptr +1; 


List [I, 1] := Text [Ptr]; 
Ptr := Ptr+l 
end; 


if odd (Sectorcount) 
then Blockcount := (Sectorcount + 1) div 2 


begin (Writedest) 


Ptr := 0; 
if Sourceunit <> Destunit then 
begin 
Printat (18, concat ('Bitte Diskette mit ', Destfile, 
' einlegen und <RETURN> drücken')); 
readln (keyboard) 
end; {if} 


Printat (18, 'Einen Augenblick bitte'); 
fillchar (Buf, size_of (Buf), 0); 


for I := 0 to Blockcount * 512 — 1 do 
begin 

if I mod 512 = 0 then write ('.'); 

if Text [I] > 127 then Text [I] := Text [I] - 128; 
end; 


Printat (18, concat ('Schreibe jetzt ', Destfile)); 
write ('.'); 

rewrite (Diskfile, Destfile); 

write (t) 

I := blockwrite (Diskfile, Buf, 1, 0); 

write ('.'); 

I := blockwrite (Diskfile, Buf, 1, 1); 

write ('.'); 

I := blockwrite (Diskfile, Text [0], Blockcount, 2); 
close (Diskfile, lock) 


end; (Writedest) 
A AE E AE E IR I SR I I I I I I II IIIA IAAI AA AA} 


begin {Getdos} 


Initialize; {Sektors/Blocks} 


repeat 
Getnames; 
Readsource; 
if found then Writedest; 
writeln; 
writeln; 
write ('Nochmal ? [j/n]'); 
read (keyboard, Ch); 
Done := Ch in ['N','n'] 
until done 


end. {Getdos} 


COPYDUPDIR zu Pascal-Directory unter der Lupe 
program CopyDupDir (input, output); 


const Maxdir TH: 


Vidleng Vi 
Tidleng 15; 
Fblksize 512; 
Dirblk es 
DupDirblk = 6; 


type Daterec packed record 


Month : 0..12; 

Day Dy sous 

Year : 0..100 
end; {Daterec} 








Dirrange = 0..Maxdir; 
Vid string [Vidleng]; 
Tid string [Tidleng]; 
Filekind (Untypedfile, Xdskfile, Codefile, 
Textfile, Infofile, Datafile, Graffile, 
Fotofile, Securedir, Subsvol); 
Direntry packed record 
Dfirstblk : integer; 
Dlastblk : integer; 
case Dfkind : Filekind of 
Securedir, 
Untypedfile : (Fillerl : 0..4095; 
Dvid : Vid: 
Deovblk : integer; 
Dnumfiles : Dirrange; 
Dloadtime : integer; 
Dlastboot : Daterec); 
Xdskfile, 
Codefile, 
Textfile, 
Infofile, 
Datafile, 
Graffile, 
Fotofile, 
Subsvol : (Filler2 : 0..2047; 
Status : boolean; 
Dtid «Tid: 
Dlastbyte : 1..Fblksize; 
Daccess : Daterec) 
end; (Direntry) 


Directory array [Dirrange] of Direntry; 


ValidValues (NotValid, ValidMain, ValidDupl); 


Unitnum : integer; 
MainDir : Directory; 
DuplDir : Directory; 


(mm) 


procedure ReadDir; 


var Ok : ValidValues; 


__ _ 2 _—_— a _—__ —_—___u_—____ 


function FetchDir (Unitnum : integer) : ValidValues; 


x_ _— _—_—_ e € __ __—_ 


function Valid (var Dir : Directory; Block : integer) : boolean; 
var Ok : boolean; 


begin (Valid) 
Valid := false; 
unitread (Unitnum, Dir, size_of (Dir), Block); 
if IOresult = 0 then 
with Dir [0] do 
Valid := (Dfirstblk = 0) and (Dfkind in 
[Untypedfile, Securedir]) 
and (length (Dvid) > 0) and 
(length (Dvid) <= Vidleng) 
and (Dnumfiles >= 0) and (Dnumfiles <= Maxdir) 
end; (Valid) 


(=== 


begin (FetchDir) 
if Valid (MainDir, Dirblk) 
then FetchDir := ValidMain 
else 
if Valid (DuplDir, DupDirblk) 
then FetchDir := ValidDupl 
else FetchDir := NotValid 
end; (FetchDir) 


begin (ReadDir) 
page (output); 
writeln; 
writeln ('Duplicate-Directory Verschieber 
von Dieter GeiB, 30. 11. 1984'); 
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repeat 
writeln; 
write ('Welche Directory soll repariert werden? 
Unitnummer: '); 
readln (Unitnum); 
until Unitnum in [4, 5, 9..12]; 
Ok := FetchDir (Unitnum); 
case Ok of 
NotValid : begin 
writeln (chr (7)); 
writeln ('Entweder ist kein Laufwerk 
angeschlossen oder'); 
writeln ('es ist keine Diskette 
im Laufwerk oder'); 
writeln ('die Diskette ist keine 
Pascal-Diskette oder'); 
writeln ('sowohl Haupt- als auch 
Duplicate-Directory'); 
writeln ('sind zerstört.'); 
exit (CopyDupDir) 
end; {NotValid} 
ValidMain : begin 
writeln; 
writeln ('Das Haupt-Directory ist 
in Ordnung.'); 
writeln ('Kein Reparieren notwendig.'); 
exit (CopyDupDir) 
end; (ValidMain) 
ValidDupl : begin 
writeln; 
writeln ('Das Haupt-Directory ist zerstört, 
aber das'); 
writeln ('Duplicate-Directory ist in Ordnung.') 
end (ValidDupl) 
end (case) 
end; {ReadDir} 


(m) 


procedure WriteDir; 


begin {WriteDir} 
unitwrite (Unitnum, DuplDir, size_of (DuplDir), Dirblk); 
writeln; 
if IOresult = 0 
then writeln ('Die Diskette hat wieder ein gültiges Directory') 
else 
begin 
write (chr (7)); 
writeln ('Die Blöcke 2 - 6 sind physikalisch 
nicht in Ordnung.'); 
writeln ('Bitte reparieren Sie diese und 
versuchen es dann nochmals.') 
end {else} 


end; {WriteDir} 


mm  _—_— ->--_—___—_ _ _—__»>---) 


begin (CopyDupDir) 
ReadDir; 
WriteDir 

end {CopyDupDir}. 
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ätten Sie jemals geglaubt, 

daß es einen 8-MHz-68000-Mikro gibt, 

der für den Einzeiler 

FOR X = 1 TO 10000: Y = SIN (X): NEXT 

mehr Zeit als der 1-MHz-6502-Apple benötigt? 
Dann lesen Sie jetzt, 

wie die Mac-Leute den 68000 zur Schnecke 
und den Anwender zum Mecki gemacht haben. 








Der Macintosh und die Lisa gehören zu derjenigen Klasse 
von Mikrocomputern, mit denen eine ganz neuartige 
Philosophie propagiert wird, über deren Sinn und Unsinn 
an dieser Stelle diskutiert werden soll, wobei auf 
technische Details — wie sonst im „Peeker“ üblich — be- 
wußt verzichtet wird, um den philosophischen Hintergrund 
besser erhellen zu können. 


Ikonen und Deixis 
oder die Philosophie 
des Macintosh 





von Ulrich Stiehl 


Folgendes soll vorab klargestellt werden: 
Der Macintosh ist ein Uberlegenes Geråt, 
soweit es fur Applikationen eingesetzt 
werden soll, die hochauflösende Schwarz- 
weißgrafik benötigen. Der Macintosh wird 
jedoch von der Firma Apple nicht als ein 
spezieller Grafikcomputer propagiert, son- 
dern als ein in Büros schlechthin einsetz- 
barer genereller Mikrocomputer. Zumin- 
dest im kommerziellen Büroeinsatz (Text- 
verarbeitung, Buchhaltung, Adreßverwal- 
tung, Tabellenkalkulation usw.) wäre ein 
vornehmlich auf Grafik ausgelegter Com- 
puter fehl am Platze, so daß nachstehend 
geprüft werden soll, welche Effizienz der 
Macintosh zusätzlich für die weitaus mehr 
gefragten nicht-grafischen Applikationen 
mitbringt. 


Wenn man mit dem Macintosh spielt, kom- 
men einem zwei Begriffe in den Sinn, 
nämlich Ikonisation und Deixis. In einer 
„Einführung in die allgemeine Semantik“, 
die ich vor 15 Jahren veröffentlicht habe, 
schrieb ich u. a. über das Wesen des 


Zeichens. Da die damaligen Erörterungen 
auch heute noch nicht ihre Gültigkeit ver- 
loren haben, seien einige kurze Passagen 
aus dem Zeichen-Kapitel jenes Buches 
zitiert: 


Die Gesamtheit aller Zeichen teilt man vor- 
teilhaft in sprachliche und nichtsprachliche 
Zeichen auf, da die sprachlichen Zeichen 
wegen ihrer überragenden Bedeutung ei- 
ne eigenständige Zeichenklasse bilden, 
hinter der die nichtsprachlichen Zeichen 
an Relevanz für den Informationsverkehr 
stark zurücktreten... 

Zeichen lassen sich in natürliche und in 
künstliche Zeichen aufteilen. Künstliche 
Zeichen liegen dann vor, wenn der Signo- 
rezipient (Zeichenempfänger) diesen 
künstlichen Zeichen nicht direkt ihre Be- 
deutungen entnehmen kann, womit also 
auch keine entsprechende Vorstellung in 
seinem Bewußtsein auftauchen kann. 
Künstliche nichtsprachliche Zeichen wer- 
den zum reibungslosen Ablauf des inter- 
personalen Informationsverkehrs stets da 
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eingeführt, wo natürliche Zeichen, denen 
man unmittelbar ihre Bedeutungen ent- 
nehmen kann, nicht mehr gefunden wer- 
den können und andererseits eine sprach- 
liche Vermittlung zu umständlich wäre... 
Wenn ein Zeichen in vielen charakteristi- 
schen Eigenschaften mit dem Designat 
der von ihm intendierten Vorstellung über- 
einstimmt und dieses Designat quasi ab- 
bildet, kann der Signorezipient die Bedeu- 
tung des Zeichens verstehen. Je weniger 
Ähnlichkeit das ikonisierende Zeichen mit 
dem Designat der entsprechenden Vor- 
stellung aufweist, um so mehr wird es zu 
einem künstlichen Zeichen... 

Das Wort „Zeichen“ läßt sich auf das Wort 
„zeigen“ zurückführen und damit wird zu- 
gleich die ursprüngliche Bedeutung des 
Bezeichnens angedeutet, nämlich die des 
direkten Hindeutens... Dieses Hindeuten 
nennt man das deiktische Zeichen... 


Wenn man den Macintosh mit anderen 
Computern vergleicht, auch mit dem Ap- 
ple Il usw., dann fällt ins Auge, daß zwei 
Klassische kulturelle Fähigkeiten, nämlich 
das Lesen und das Schreiben, hier stark 
zurückgedrängt werden. An die Stelle des 
Lesens tritt das Betrachten von Ikonen, 
wie die Macintosh-Bildchen in der ameri- 
kanischen Literatur bezeichnet werden, 
und an die Stelle der dem Schreiben die- 
nenden Tastatur tritt die Maus als deikti- 
sches Instrument. Der oberste Manager 
des Apple-Unternehmens, John Sculley, 
der bekanntlich früher bei Pepsi Cola war, 
mag zwar von Mikrocomputern aus techni- 
scher Sicht wenig verstehen. Dafür be- 
herrscht er aber das Marketing aus dem 
Effeff, und so ist es ihm nicht entgangen, 
daß die Analphabetenquote nach einer 
UNESCO-Erhebung aus dem Jahre 1977 
in Nord-Amerika über 10% beträgt und die 
Fähigkeit des Lesens und Schreibens (= 
»Alphabetentum“) einen Abwärtstrend 
zeigt. Wie soll man jedoch eine Marktpe- 
netration erreichen können, wenn es so 
viele Analphabeten gibt? Ergo wurden die 
Ikonen und die Maus erfunden, denn 
wenn jemand schon nicht lesen kann, 
Bildchen wird er wohl noch deuten kön- 
nen, und wenn jemand schon nicht schrei- 
ben kann, mit einer Maus auf Bildchen 
zeigen wird wohl noch möglich sein. Neh- 
men wir als Beispiel die Papierkorb-Ikone. 
Wenn man eine Datei namens XYZ auf der 
Diskette löschen will, so muß man bei 
konventionellen Mikrocomputern aus ei- 
nem Anwenderprogramm heraus nach der 
Frage „Datei XYZ löschen J/N* auf die J- 
Taste tippen oder man muß (wie etwa bei 
vielen Datenbankprogrammen) einen Be- 
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fehl in der Art „Lösche XYZ“ über das 
Keyboard eingeben. Anders beim Macin- 
tosh. Hier muß man das Bildchen der Datei 
in das Bildchen des Papierkorbs stecken, 
indem man mit der Maus zunächst auf die 
Datei-Ikone und dann auf die Papierkorb- 
Ikone zeigt. Um darüber hinaus den Le- 
seunkundigen behutsam an das geschrie- 
bene Wort heranzuführen, ist zu allem 
Überfluß die Papierkorb-Ikone mit dem 
Schild „Papierkorb“ beschriftet. 


Halten wir zunächst einmal fest: Computer 
benutzerfreundlicher zu machen, sollte 
oberstes Anliegen jedes Computerprodu- 
zenten sein, denn nicht jeder will, kann 
und soll programmieren lernen. Aber 
drückt sich Benutzerfreundlichkeit darin 
aus, daß abstrakte Vorgänge wie das Lö- 
schen einer Datei mit aller Gewalt bildhaft 
veranschaulicht werden? Wir Deutsche 
sind etwas empfindlich gegenüber einer 
zu trivialen Simplifikation. Dies hängt mit 
der philosophischen Tradition und dem 
Schulsystem unseres Landes zusammen. 
Haben doch viele Philosophen wie Kant 
und Hegel ihre Zuflucht in dunklen Formu- 
lierungen gesucht (Brevis esse laboro et 
obscurus fio...). Mit dieser Tradition im 
Hintergrund ist man etwas konsterniert, 
wenn man beispielsweise nunmehr auf 
dem Bildschirm ohne jeden erläuternden 
Text einen „Hasen“ sowie eine „Schild- 
Kröte” präsentiert bekommt. Was könnte 
es bewirken, wenn ich mit der „Maus“ 
(auch wieder eine bildhafte Umschreibung 
eines sonst Rollball genannten Instru- 
ments) auf den Hasen „klicke“? Daß ich 
jetzt vom Macintosh ein Wildbret anstelle 
einer Schildkrötensuppe erhalte? Oder 
daß — was zutrifft — die Repeat-Funktion 
der Tasten des Macintosh eingestellt wird? 
Warum nicht einfach und eindeutig die 
schriftliche Frage: „Tastendruck schneller 
J/N?" So gesehen muß man sich fragen, 
ob Bildchen wirklich zur Benutzerfreund- 
lichkeit führen. Hier zeigt sich die oben 
aus dem Semantik-Buch zitierte Proble- 
matik ikonographischer Zeichen, die oft 
äquivok sind und deshalb einer Konven- 
tion (= Festlegung der Bedeutung) bedür- 
fen. Wenn man jedoch die Symbolbedeu- 
tung des „Hasen“ erst erlernen muß, 
dann fragt es sich, ob einem mit einer 
schriftlichen Formulierung nicht besser 
gedient wäre. Nichtsprachliche Zeichen 
sind stets dann erforderlich, wenn eine 
sprachliche (schriftliche) Kommunikation 
zwischen Mensch und Computer nicht 
möglich ist. Hier sind drei Fälle zu nennen: 


Ausländer: Aus der Sicht der Amerikaner 
sind die Deutschen Ausländer. Betriebs- 


Scrollen: Meckis Macke 


Daß selbst ein so hervorragender Prozes- 
sor wie der MC68000 bei zu aufwendiger 
Pixel-Grafik in die Knie geht, laBt sich an- 
hand der Scroll-Geschwindigkeit bewei- 
sen. Zu diesem Zweck wurde je ein kurzes 
Basic-Programm (FOR X = 1 TO 1000: 
PRINT „aaaaa...usw.“: NEXT) erstellt und 
einerseits auf dem Macintosh und ande- 
rerseits auf dem Apple lle mit 80-Zeichen- 
karte getestet. Dabei ergaben sich folgen- 
de Geschwindigkeitsunterschiede des Ap- 
ple Ile gegenüber dem Macintosh: 


1. Der normale Apple Ile mit 1MHz-6502 
und normaler 80-Zeichenkarte-Routine ist 
immerhin schon 2mal so schnell wie der 
Macintosh. 


2. Der normale Apple Ile mit einer selbst 
geschriebenen 80-Zeichenkarte-Fastscroll- 
Routine ist bereits 4mal so schnell wie der 
Macintosh. 


3. Und schließlich ist der Apple Ile mit 
3,5MHz-65C02C (Acclerator-Karte) und 
der Fastscroll-Routine sage und schreibe 
10mal so schnell wie der Macintosh. 


Dieses Ergebnis ist für den Macintosh an- 
gesichts des 8MHz-MC68000-Prozessors 
ungewöhnlich schwach. 


Um den Basic-Test zu erhärten, wurde die 
Scrollgeschwindigkeit des Macwrite- mit 
der des Applewriter-Programms vergli- 
chen. Zunächst wurde von der Macwrite- 
Diskette der kurze Demotext namens ME- 
MORANDUM eingelesen. Am Anfang die- 
ses Textes wurden exakt 10 Bildschirm- 
zeilen ohne Returns und ohne Leertasten 
(„----- usw.“) eingegeben, um auf diese 
Weise das Scrollen zu erzwingen. Dann 
wurde der Maus-Zeiger zum Beginn der 
10 Endloszeilen gesetzt und innerhalb von 
5 Sekunden exakt 10mal auf die Return- 
und 10mal auf die Delete-Taste gedrückt. 
Es dauerte dann genau weitere 10 Sekun- 
den, bis sich das 10malige Abwärts- und 
Aufwärts-Scrollen erholt hatte. Beim Ap- 
plewriter lle mit Acclerator-Karte gibt es 
demgegenüber überhaupt keine Verzöge- 
rung, d.h. das Scrollen wird sofort ausge- 
führt. Was kann man nun daraus folgern? 
Eine mäßige Schreibkraft erzielt 180, eine 
gute 280 Anschläge/Minute. Wenn in 5s 
20 Tasten gedrückt, aber effektiv erst in 5s 
+ 10s = 15s ausgeführt werden, so ent- 
spricht dies einer Tastgeschwindigkeit von 
80 Anschlägen pro Minute. Niemand wür- 
de eine Schreibkraft mit dieser Leistung 
einstellen. 








systeme in die jeweilige Landessprache 
zu übersetzen kostet Zeit und Geld. Durch 
die Einführung von Symbolen könnte man 
sich die Arbeit erheblich erleichtern. Dann 
müßten es allerdings international gere- 
gelte Symbole sein (ähnlich wie die inter- 
national genormten Straßenverkehrsschil- 
der) und nicht willkürlich festgelegte „Ha- 
sen“ und „Schildkröten“. 


Kinder: Kinder sind erst im Begriff, lesen 
und schreiben zu lernen. Ob der Macin- 
tosh indessen auch für Kinder konzipiert 
wurde, ist zu bezweifeln, denn dem steht 
der zu hohe Anschaffungspreis entgegen. 


Analphabeten: Für Lesebehinderte ist die 
ikonographisch-deiktische Sprache das 
Mittel zur Wahl. Doch scheint mir zumin- 
dest der berufliche Einsatz eines Mikro- 
computers ohne diese elementaren Fähig- 
keiten mehr als bedenklich. 


Manager: Die Bedienung einer Tastatur 
wird von Führungskräften in der Regel ab- 
gelehnt. Dafür gibt es Sekretärinnen, so 
heißt es. Um den Macintosh in der Ge- 
schäftsetage allererst ,salonfáhig” zu ma- 
chen, bot sich die Maus an. Die Tastatur ¡st 
beim Macintosh scheinbar ein nebensäch- 
liches Anhängsel, das nur noch von Fall zu 
Fall bedient werden muß. In Wahrheit ist 
jedoch die Tastatur beispielsweise bei der 
Textverarbeitung eine conditio sine qua 
non. Da man jedoch beim Macintosh ge- 
zwungen ist, die Maus zu benutzen, muß 
das permanente Hin und Her zwischen 
Maus und Tastatur als wenig ergonomisch 
bezeichnet werden, ganz zu schweigen 
von der Tatsache, daß dadurch Schnell- 
schreiber ihr gewohntes Soll nicht mehr 
erfüllen können. Oder sollte der Macintosh 
für Leute, die schnell arbeiten müssen, gar 
nicht gedacht sein? 


Läßt man unsere philosophischen Erörte- 
rungen Revue passieren, so könnte der 
Eindruck entstehen, daß der Macintosh — 
von der Zielgruppe der Manager einmal 
abgesehen -— eigentlich nur für die von 
Mutter Natur weniger gut Bedachten kon- 
zipiert worden ist. („Dada Hase klickiklick 
und Mecki ganz schnell“.) Dem ist jedoch 
nicht so. Hinter dem Macintosh steht das 
ernsthafte Bemühen, ein Gerät zu konzi- 
pieren, daß über optimale Benutzerfreund- 
lichkeit verfügt, was mit Hilfe von Ikonen, 
Maus und sonstigen Grafiken zu realisie- 
ren versucht wird. Ganz an erster Stelle 
steht beim Macintosh das Komfortprinzip 
und erst unter „ferner liefen“ das Effi- 
zienzprinzip. Ohne Grafik geht beim Mac- 





intosh gar nichts. Dies hat zwar einerseits 
den Vorteil, daß Texte und Bilder beliebig 
gemischt werden können, andererseits 
wird die Effizienz ungewöhnlich stark be- 
einträchtigt. Überspitzt könnte man sagen, 
daß der Macintosh im wesentlichen damit 
beschäftigt ist, pausenlos Ikonen und Gra- 
fiken zwischen internem und externem 
Speicher hin- und herzuschaufeln und daß 
deshalb für das eigentliche Anwenderpro- 
gramm nur noch wenig „CPU-Zeit” und 
nur noch wenig Speicherraum zur Verfü- 
gung steht. 


— Tatsache ist, daß wegen des ca. 20K- 
Bildschirmspeichers die Scrollgeschwin- 
digkeit so gering ist, daß bei einer flotten 
10-Finger-Schreibkraft Textverarbeitungs- 
programme in der Art des Macwrite — un- 
abhängig von dem permanenten Wechsel 
Maus-Tastatur — nicht mithalten können. 


— Tatsache ist auch, daß sowohl der inter- 
ne RAM- wie auch der externe Disketten- 
Speicher durch das infolge der aufwendi- 
gen Grafikroutinen ungewöhnlich aufge- 
blähte Betriebssystem keinen nennens- 
werten Platz für eigene Programme und 
Daten läßt, so daß insbesondere 1-Drive- 
Besitzer ungebührliche Einschränkungen 
in Kauf nehmen müssen. Auf einer 1-Dri- 
ve-Macintosh-Diskette befinden sich in 
der Regel weit mehr Systemprogramme, 
Zeichensätze und Bildchen als sinnvolle 
Daten des Anwenders. Übrigens dauert 
das Duplizieren einer Diskette beim 1- 
Drive-Besitzer 6,5 Minuten. 


Als konkretes Beispiel zitieren wir hier aus 
der amerikanischen Zeitschrift „A+“, Heft 
10/1984, S. 175, die Anfrage eines ver- 
zweifelten Macintosh-Benutzers, der we- 
gen der genannten speichertechnischen 
Probleme eine 5-Megabyte-Festplatte er- 
worben hatte und nunmehr feststellen 
mußte, daß er bei der Verwendung langer 
Dateinamen nicht mehr als 100 Dateien 
auf der Harddisk abspeichern konnte, ob- 
gleich de facto noch mehr als 1,5 Mega- 
byte frei waren. Bei jedem wiederholten 
Versuch stürzte das System mit „can't find 
workspace“ erneut ab. Was war passiert? 
Das Kopierprogramm FILER hat einen Di- 
rectory-Puffer (Dateinamenpuffer), der nur 
ca. 100 längere Dateinamen aufnehmen 
kann. Andererseits ist es jedoch auch 
nicht in der Lage, die Summe aller Datei- 
namen in Blöcken einzulesen, wie dies bei 
anderen Betriebssystemen wie ProDOS 
usw. der Fall ist. Hierzu muß man wissen, 
daß der RAM-Bereich des Macintosh 
128K umfaßt, während der Directory-Puf- 
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fer wahrscheinlich nicht mehr als ca. 4K 
einnimmt, weil die restlichen ca. 124K 
durch Systemprogramm und Ikonen be- 
legt sind. Hierzu muß man ferner wissen, 
daß sich in dem Speicherraum des Macin- 
tosh-Grafikbildschirms, der ca. 20K um- 
faßt, mehr als 1000 Dateinamen unterbrin- 
gen lassen Könnten. 


Symptomatisch ist die Antwort, die die 
appletreue „A+“ dem Anfrager gibt: „Sie 
können wenige große Datenbank-Dateien 
auf Ihrer Harddisk unterbringen, nicht je- 
doch viele kleine Macwrite/Macpaint-Da- 
teien. Sie sollten einige der Dateien von 
der Harddisk auf eine Diskette übertragen, 
womit Ihr Problem einstweilen gemildert 
wird.“ Wirklich gemildert? Wenn das EEffi- 
zienzprinzip dem Komfortprinzip geopfert 
wird, wenn also wegen der „Bildchen“ 
eine Festplatte nicht mehr optimal genutzt 
werden kann, dann kann man nur noch auf 
die Schildkröte deuten: „Dada klickiklick 
und Mecki wieder brav“. 


Ich möchte folgendes Fazit ziehen: Der 
Macintosh ist im Grunde ein zukunftwei- 
sendes Gerät, doch ist selbst ein so her- 
vorrangender Prozessor wie der M68000 
nicht in der Lage, exzessive Grafiken 
schnell und speicherökonomisch zu ver- 
walten. Da müssen dann schon echte 32- 
Bit-Prozessoren herhalten. Hinzu kommt, 
daß insbesondere bei kommerziellen Ap- 
plikationen Grafik oft entbehrlich ist. Wer 
wollte schon 5000 Kundenadressen in 12p 
Chicago drucken? Deshalb ist es in mei- 
nen Augen nicht nur wünschenswert, son- 
dern notwendig, daß die Firma Apple ne- 
ben dem Grafik-Modus beim Macintosh 
auch den normalen Text-Modus einführt, 
weil sonst die Gefahr besteht, daß der 
Macintosh zu einem Spezialgerät abge- 
stempelt wird, das nur denjenigen Benut- 
zern attraktiv erscheint, die von Berufs 
wegen mit Grafik zu tun haben, also die 
Grafiker selbst. Will man jedoch weder auf 
die Grafik noch auf die Effizienz verzich- 
ten, dann muß man tief in die Tasche 
greifen. Laut Apple-Preisliste vom Novem- 
ber 1984 kostet der Macintosh mit der 
nunmehr erhältlichen 512K-Speicherer- 
weiterung 12.250,- DM. Nimmt man noch 
die Kosten für Drucker, Festplattenlauf- 
werk oder externes Drive sowie für An- 
wendersoftware hinzu, ist man schnell in 
einer Preiskategorie, die nur diejenigen 
Firmen nicht abschreckt, für die Geld kei- 
ne Rolle spielt. 


(Zur Mac-Sprache s. S. 94.) å 


77 





end 


> 


A 
ls 





Interpreter 


For Apples Macintosh 


da 3 Version: N 


Part No. 014- 096-003 





78 








4. FUNKTIONEN 


Mit diesem zweiten Teil wird unsere 
Serie über das Microsoft Basic, Ver- 
sion 1.0, für den Macintosh fortgesetzt. 
Es sei an dieser Stelle darauf hingewie- 
sen, daß eine verbesserte und und teil- 
weise erweiterte Version dieses Basic- 
Dialekts in Kürze erscheint, so daß wir 
wahrscheinlich bereits im abschließen- 
den Teil dieser Serie auf die Neuerun- 
gen hinweisen können. 


Microsoft Basic leicht 
geMACht 


von Pit Capitain 


4.1. Arithmetische Funktionen 


Beim Microsoft-Basic fur den Macintosh 
gibt es dieselben arithmetischen Funktio- 
nen wie beim Applesoft-Basic. Sie werden 
jedoch mit einer höheren Genauigkeit be- 
rechnet, nämlich mit der (von den numeri- 
schen Variablen her bekannten) doppelten 
Genauigkeit von bis zu 14 gültigen Ziffern. 
Im einzelnen gibt es die folgenden arith- 
metischen Funktionen: 


COS (X) - Cosinus von X 

SIN (X) — Sinus von X 

TAN (X) — Tangens von X 

ATN (X) - Arcustangens von X 

EXP (X) - Exponentialfunktion 

LOG (X) — natürlicher Logarithmus 

SQR (X) - Quadratwurzel aus X 

ABS (X) - Betrag von X 

SGN (X) - Signum-(Vorzeichen-)Funktion 


Neben der genaueren Berechnung gibt es 
beim Microsoft-Basic noch einen weiteren 
Unterschied zum Applesoft-Basic. Wenn 
bei einer arithmetischen Funktion ein 
Überlauf auftritt, so wird zwar eine Fehler- 
meldung ausgegeben, das Programm hält 
aber nicht an, sondern läuft nach der Feh- 
lermeldung weiter. Das Funktionsergebnis 
ist dann die dem Betrage nach größte dar- 
stellbare Zahl, nämlich 9.9999999999999 
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Argument aufgerufen wird, das nicht in 
dem Definitionsbereich der Funktion liegt, 
z.B. „SQR (-1)“. In diesem Fall wird die 
Fehlermeldung „ILLEGAL FUNCTION 
CALL“ ausgegeben, und das Programm 
wird wie beim Applesoft-Basic unterbro- 
chen. 

Beispiele für die arithmetischen Funktio- 
nen und fir die eben erwåhnte Fehlerbe- 
handlung sieht man in Abb. 1. 


4.2. String-Funktionen 


Alle String-Funktionen des Applesoft-Ba- 
sic sind vorhanden: 


LEFTS (X$,1) — Linker Teilstring von X$ mit 
der Lange | 

MID$ (X$,1) — Rechter Teilstring von X$ ab 
dem I-ten Zeichen 

MID$ (X$,1,J) — Mittlerer Teilstring von X$ 
ab dem I-ten Zeichen mit der Länge J 
RIGHTS (X$,1) — Rechter Teilstring von X$ 
mit der Långe I 

LEN (X$) — Långe des Strings X$ 


Im Unterschied zum Applesoft-Basic kann 
bei der , LEFT$"- und , RIGHT$"-Funktion 
der Långenparameter 0 sein. In diesem 
Fall wird der leere String ““ erzeugt. 
Neben diesen Funktionen existieren noch 
drei weitere String-Funktionen: 






Teil 2: Funktionen und Programmsteuerbefehle 


* 10 1 + 62, natürlich mit dem richtigen 
Vorzeichen versehen. 

Anders verhält es sich selbstverständlich 
bei dem Fall, daß eine Funktion mit einem 
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J10 REM Beispiel | 

911 REM Arithmetische 
412 REM Funktionen 
413 REM 

4100 PRINT COS (1) 

4110 PRINT SIN (2) FERNER 
8120 PRINT ATN (3) | 

1130 PRINT EXP (145 06) | 


Illegal function call 
in line 160 





40 PRINT EXP (145.07) REM Zu groß | 


4150 PRINT SGN (-8) SGN (0) SGN (8) 
7160 PRINT SQR (-1) 
1190 END 





SPACES (I) — ein String aus | Leerzei- 
chen. 

STRINGS (I,J) — ein String aus | Zeichen 
mit dem ASCII-Code J. Beispiel: 
STRING$ (5,42) = "er". 

STRINGS$ (1,X$) — ein String, der aus |-mal 
dem ersten Zeichen von X$ besteht. Bei- 
spiel: STRING$ (4,“Test%) = “TTTT”. 
INSTR (1,A$,B$) — sucht das erste Vor- 
kommen des Strings B$ in dem String A$ 
ab dem I-ten Zeichen. Wenn B$ in A$ 
gefunden wird, so wird die Position von B$ 
in A$ zurückgegeben, ansonsten eine 
Null. Der Parameter | kann auch weggelas- 
sen werden; dann fängt die Suche am 
Anfang von A$ an. 
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JRV [IO REM Beispiel 2 

7 li I REM Eine Zeichenkette durch 
112 REM eine andere ersetzen 
113 REM 

1100 INPUT "Text ", TEXT$ 

1110 INPUT “String 1°. S1$ 

#120 INPUT "String 2"; $2! 

1130 ANFANG = I 





3 String 1?t 
String 2 ? 94 
\ Ergebnis : qgesgg Tesqq 


m 10 IF MATCH = 0 THEN 300 
1220 T1$ = LEFT$ (TEXT$, MATCH - 1) 
o 30 T2$ = MID$ (TEXT$, MATCH + LEN (5141) 
1240 TEXT$ = Ti$ + 528 + T2$ 
1250 ANFANG = MATCH + LEN (52$) 
‚GUTO 200 
PRINT "Ergebrus " TEXT 
410 END 





Abb. 2 zeigt ein Beispiel fur die Verwen- 
dung von String-Funktionen. Es wird in 
einem String eine bestimmte Zeichenfolge 
durch eine andere ersetzt. 


4.3. Typ-Umwandlung 


Beim Microsoft-Basic gibt es verschiede- 
ne Arten von Operanden (vgl. 1. Teil unse- 
rer Serie). Mittels einer ganzen Anzahl von 
Funktionen läßt sich ein bestimmter Typ in 
einen anderen umwandeln. 


FIX (X) - schneidet alle Nachkommastel- 
len von X ab. Das Ergebnis ist eine Inte- 
gerzahl. 

INT (X) - liefert die größte Integerzahl, die 
kleiner oder gleich X ist. 


Der Unterschied zwischen „FIX“ und 
„INT“ wird bei negativen Argumenten 
deutlich: FIX (-1.5) = -1, aber INT (-1.5) = 
-2. Es gilt: 

FIX (X) = SGN (X) æ INT (ABS (X)). 


CDBL (X) - die Zahl X wird im doppelt 
genauen Format zurückgegeben. 

CSNG (X) - die Zahl X wird im einfach 
genauen Format zurückgegeben. Dabei 
wird X auf 6 Ziffern gerundet, falls dies 
nötig ist (z.B. CSNG (1.23456789) = 
1.23457). 

CINT (X) — die Zahl X wird zu einer Inte- 
gerzahl gerundet (z.B. CINT (1.5) = 2). 


Neben diesen Funktionen, die einen nu- 
merischen Ausdruck in eine numerische 
Zahl in anderem Format umformen, gibt es 
noch Funktionen, die aus einer Zahl einen 
String machen und umgekehrt: 


ASC (X$) — ASCII-Code des ersten Zei- 
chens von X$. 

CHR$ (I) — ein String, der aus dem Zei- 
chen mit ASCII-Code | besteht. 

VAL (X$) - interpretiert den String X$ als 
Darstellung einer Zahl und liefert diese 
zurück. 
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STR$ (X) - Darstellung der Zahl X als 
String. 

HEX$ (I) — wie „STR$“, die Integerzahl | 
wird jedoch in hexadezimale Form umge- 
wandelt. 

OCT$ (I) — wie ,STR$", die Integerzahl I 
wird jedoch in oktale Form umgewandelt. 
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Beispiel 3 


110 REM Beispiel 3 

J11 REM Hex-Dez-Umwandler 

112 REM 

1100 PRINT 

1110 INPUT "Híex, Díez, Elnde "; CMD$ 
1200 IF CMD$ <> "H" THEN 300 


Y Hex, Díez, Elride ? H 
JHex-Zahl ? AFFE 


Hex, Diez, Einde ? D 
@Dez-Zahl ? 12345 


1--: 33039 
4 


"> "VAL ("&H" + H$) 
1230 GOTO 100 

1300 IF CMD$ © "D" THEN 400 
1310 INPUT "Dez-Zahl "; D 

1320 PRINT "--> $" + HEX$ (D) 

330 GOTO 100 


A400 END 


AH(ex, Diez, E(nde ? E 





Als kleines Beispiel ist in Abb. 3 ein Pro- 
gramm aufgelistet, das Dezimalzahlen in 
Hexadezimalzahlen umwandelt und um- 
gekehrt. 

Zu den Typ-Umwandlungs-Funktionen 
gehören noch sechs weitere Funktionen, 
die zum Abspeichern von Zahlen in soge- 
nannten „Random-Access“-Dateien be- 
nötigt werden. Diese Funktionen wandeln 
eine Zahl in einen String um und umge- 
kehrt, aber anders als die Funktionen 
» STR$" und , VAL": 


MKIS (I) — die (2 Byte lange) Integerzahl | 
wird in einen String umgewandelt, der 2 
Zeichen lang ist. Dabei entspricht jedes 
Zeichen einem Byte der internen Darstel- 
lung von I. Zum Beispiel ergibt MKI$ (65 x 
256 + 80) den String „AP“, da 65 der 
ASCII-Code von „A“ und 80 der von „P“ 
ist. 

MKSS$ (X) - analog wie „MKI$“, nur wird 
die einfach genaue rationale Zahl X (intern 
4 Bytes lang) in einen 4 Zeichen langen 
String umgewandelt. 

MKD$ (X) - analog wie „MKI$“, nur wird 
die doppelt genaue rationale Zahl X (intern 
8 Bytes lang) in einen 8 Zeichen langen 
String umgewandelt. 

CVI (X$) — der 2 Zeichen lange String X$ 
wird in eine Integerzahl umgewandelt (um- 
gekehrt wie bei „MKI$“). Z.B. ist 
CVI (“AP“) = 65 * 256 + 80. 

CVS (X$) — der 4 Zeichen lange String X$ 
wird in eine einfach genaue rationale Zahl 
umgewandelt (umgekehrt wie bei 
„MKS$"). 

CVD (X$) - der 8 Zeichen lange String X$ 
wird in eine doppelt genaue rationale Zahl 
umgewandelt (umgekehrt wie bei 
» MKD$“). 


Beispiele zu diesen sechs Funktionen fol- 
gen im nachsten Teil der Serie bei den 
Ein-/Ausgabe-Befehlen. 


4.4. Ein-/Ausgabefunktionen 


Es gibt einige Funktionen, die mit der Ein- 
bzw. Ausgabe im Zusammenhang stehen. 
Eine dieser Funktionen ist auch beim Ap- 
plesoft-Basic vorhanden, die anderen sind 
neu. 


INKEY$ — Falls eine Taste des Macintosh 
gedruckt wurde, die noch nicht vom Pro- 
gramm eingelesen worden ist (man kann 
ja z. B. im voraus tippen), so liefert die 
Funktion einen String, der aus diesem Zei- 
chen besteht. Ansonsten liefert „INKEY$“ 
den leeren String ““. Keines der so einge- 
lesenen Zeichen wird auf dem Bildschirm 
ausgegeben. 

INPUTS (I,+#N) — gibt einen String zurück, 
der aus | Zeichen besteht. Diese Zeichen 
werden alle von der Datei mit der Nummer 
N eingelesen. Sie werden nicht auf dem 
Bildschirm ausgegeben. Man kann den 
zweiten Parameter weglassen; in diesem 
Fall werden | Zeichen von der Tastatur 
eingelesen. 


SSS SSA ISEE SS SS ESSEK ASAE 
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ÅRUN 

Drücken Sie auf 3 Tasten 
i 10 REM Beispiel 4 

II REM Eingabe-Funktioner 

12 REM 

100 PRINT "Drücken Sie auf 3 Tasten" 
110 A1$ = INPUT$ (3) 

120 PRINT : PRINT "Noch eine Taste" 

130 A2$ = INKEYS : IF A2$ = "" THEN 130 
200 PRINT 

210 PRINT "Sie haben " Alf: 

220 PRINT "und " A2$” eingegeben.” 
400 END 


@Noch eine Taste 
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Beispiele für diese Funktionen sieht man 
in Abb. 4. 

Die nächsten Funktionen machen eine 
Aussage über den Zustand eines Ein-/ 
Ausgabe-Gerätes: 


POS (I) — gibt die augenblickliche horizon- 
tale Position der Bildschirmausgabe an. 
Auf dieser Position erfolgt die nachste 
Ausgabe. 

LPOS (I) — wie „POS“, nur wird die Posi- 
tion des Schreibkopfes beim Drucker zu- 
rückgemeldet. 

EOF (N) — hat den Wert -1 (wahr), falls das 
Ende der Datei mit der Nummer N erreicht 
wurde. Wenn dies nicht der Fall ist, so hat 
EOF den Wert O (falsch). 

LOF (N) — gibt die Lange der Datei mit der 
Nummer N in Bytes an. Für den Bild- 





schirm, die Tastatur und den Drucker wird 
eine Null zurückgegeben. 

LOC (N) — bestimmt die Position der letz- 
ten Ein-/Ausgabe bei der Datei mit der 
Nummer N, z.B. bei sequentiellen Da- 
teien die Zahl der bisher gelesenen bzw. 
geschriebenen Zeichen. Bei der Tastatur 
liefert LOC eine 1, falls ein Zeichen einge- 
lesen werden kann, sonst eine 0. Bei dem 
Text-Zwischenspeicher und bei der seriel- 
len Schnittstelle (*CLIP:" bzw. "COM1:", 
vgl. 1.3.) gibt LOC die Zahl der Zeichen 
an, die eingelesen werden können. 
POINT (X,Y) — die Farbe eines Punktes im 
Ausgabefenster mit den Koordinaten 
(X,Y). Der gesamte Macintosh-Bildschirm 
hat eine Auflösung von 512 Punkten hori- 
zontal und 342 Punkten vertikal. Punkt 
(0,0) ist die linke obere Ecke des Ausga- 
befensters. Ein weißer Punkt hat die „Far- 
be“ Nummer 30, ein schwarzer Punkt die 
Nummer 33. Falls die Koordinaten (X,Y) 
außerhalb des Ausgabefensters liegen, so 
ist POINT (X,Y) = -1. Obwohl zur Zeit nur 
2 Farben (weiß und schwarz) zur Verfü- 
gung stehen, sind in den ROM-Routinen 
und auch im Basic alle Vorkehrungen für 
eine spätere Farberweiterung vorhanden. 


Eine weitere interessante Eingabefunktion 
gibt den Zustand der Maus an: 


MOUSE (I) — kann mit Parametern von O 
bis 6 aufgerufen werden. Je nach dem 
Wert von I hat diese Funktion eine andere 
Bedeutung: 


MOUSE (0) — (Status) gibt den Zustand 
vom K(n)opf der Maus an. Eine Null be- 
deutet, daß der Knopf seit dem letzten 
Aufruf von „MOUSE (0)“ nicht gedrückt 
worden ist. Falls der Knopf doch gedrückt 
wurde, gibt „MOUSE (0)“ an, wie oft das 
der Fall war, einmal, zweimal („Doppel- 
klick“) oder gar dreimal. Das Vorzeichen 
von „MOUSE (0)“ gibt an, ob der Knopf 
der Maus noch gedrückt ist (negativ) oder 
ob er schon wieder losgelassen wurde 
(positiv). Beispiele: 


Knopf wurde zweimal gedrückt und dann 
losgelassen: MOUSE (0) = 2. 

Knopf wurde einmal gedrückt und ist noch 
unten: MOUSE (0) = -1. 

Knopf wurde nicht gedrückt: 

MOUSE (0) = 0. 


MOUSE (1) — (aktuelle X-Koordinate): die 
horizontale Position der Maus zu dem 
Zeitpunkt, als „MOUSE (0)“ zuletzt aufge- 
rufen wurde. 


MOUSE (2) - (aktuelle Y-Koordinate): die 
vertikale Position der Maus zu dem Zeit- 
punkt, als „MOUSE (0)“ zuletzt aufgeru- 
fen wurde. 

MOUSE (3) — (Anfangs-X-Koordinate): die 
horizontale Position der Maus zu dem 
Zeitpunkt, als der Knopf der Maus ge- 
druckt wurde. 

MOUSE (4) — (Anfangs-Y-Koordinate): die 
vertikale Position der Maus zu dem Zeit- 
punkt, als der Knopf der Maus gedruckt 
wurde. 

MOUSE (5) — (End-X-Koordinate): die ho- 
rizontale Position der Maus zu dem Zeit- 
punkt, als der Knopf der Maus losgelassen 
wurde. 

MOUSE (6) — (End-Y-Koordinate): die 
vertikale Position der Maus zu dem Zeit- 
punkt, als der Knopf der Maus losgelassen 
wurde. 


SSRS eee ERS 
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RUN f— a 

Malen mit der Maus | j10 REM es jag AN 

A (Ende mit Doppelklick) EE 

; |12 REM 

q 1100 PRINT "Malen mit der Maus” 

1110 PRINT "(Ende mit Doppelklick)" 

1200 MAUS = MOUSE (0) 

1300 IF MAUS © 0 THEN 400 

1310 CALL MOVETO (MOUSE (1), MOUSE (2)) 

i $e O GOTO 200 

| 400 IF ABS (MAUS) = 2 THEN 500 

1410 CALL LINETO {MOUSE (1), MOUSE (2)) 
2 OTO 200 











1420 GOTO 200 
15.00 END 


Ein Beispiel zur Benutzung der „MOUSE - 
Funktion zeigt Abb. 5. Dieses Programm 
erlaubt es, ein Bild mit der Maus zu malen. 
Immer wenn der Knopf der Maus gedrückt 
ist, wird eine Linie der Maus folgend ge- 
zeichnet. Es werden die Grafik-ROM-Rou- 
tinen „LINETO“ und „MOVETO“ benutzt, 
die im 4. Teil der Serie näher erläutert 
werden. 


4.5. Sonstige Funktionen 


Bei den sonst noch vorhandenen Funktio- 
nen handelt es sich zunächst um zwei 
Funktionen für die Programmierung in Ma- 
schinensprache: 


PEEK (A) — Inhalt des Bytes mit der 
Adresse A. A muß im Bereich O bis 
16777215 (2 T 24 - 1) liegen. 

VARPTR (Variablen-Name) — die Adres- 
se des ersten Bytes der Variablen mit dem 
angegebenen Namen. Dies wird vor allem 
beim Aufruf von Maschinensprache-Pro- 
grammen benötigt. Beispiele zu diesem 
Befehl folgen in dem Abschnitt Uber die 
ROM-Routinen in Teil 4, aber auch in die- 
sem Teil in Abb. 9. 


Für die Fehlerbehandlung gibt es zwei 
sehr nützliche Funktionen: 


ERR - gibt nach einem Fehler die Num- 
mer des aufgetretenen Fehlers an. Die 
Fehlernummern sind im Anhang des Ba- 
sic-Handbuchs aufgeführt. 

ERL - die Nummer der Programmzeile, in 
der der Fehler auftrat. 


Diese beiden Funktionen sind in einer 
Fehlerbehandlungsroutine sehr nützlich. 
Eine solche Routine läßt sich wie beim 
Applesoft-Basic durch den Befehl „ON 
ERR GOTO ...“ programmieren (wird wei- 
ter unten erklärt). 

Als Zufallszahlengenerator steht die Funk- 
tion „RND (l)“ zur Verfügung. Je nach 
dem Wert des Integer-Parameters „|“ wird 
eine andere Zufallszahl erzeugt: 


RND (I) mit | negativ — beginnt eine neue 
Reihe von Zufallszahlen. Für jedes negati- 
ve | wird eine eigene Zufallszahlenreihe 
begonnen. 

RND oder RND (I) mit positivem | — die 
nächste Zufallszahl der Reihe. 

RND (0) - liefert die zuletzt erzeugte Zu- 
fallszahl noch einmal. 


Die erzeugten Zufallszahlen sind von dop- 
pelter Genauigkeit aus dem Bereich von O 
bis 1. 

Daneben gibt es noch einige Systemfunk- 
tionen: 


FRE (-1) — gibt die Zahl der freien Bytes 
auf der Halde des Macintosh an. 

FRE (N) mit N > = 0 - die Zahl der freien 
Bytes im Basic-Speicher. 

FRE (““) — hat dieselbe Bedeutung wie 
2. B. aFRE (0) 


F 

@ File Edit Control 
JEUN 10 REM Beispiel 6 
Zeitmessung 11 REM Zeitmessung 
gam 11-30-1984 112 REM 

m 12:31:05 Uhr 1100 PRINT "Zeitmessung" 
#110 PRINT “am " DATES 
1120 PRINT "um " TIME$ " Uhr" | 
11130 PRINT F 
1200 PRINT "Zeit für 1000 Schleifen " | | 
































Zeit für 1000 Schleifen 
4 4 Sekunden 


— 





— 


å I=0 
11220 ANFANG = TIMER 


1230 1 =1+ 1: IF] < 1000 THEN 230 | 
240 ENDE = TIMER Å 
1300 PRINT ENDE - ANFANG " Sekunden” | k 


400 END 
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Dank der eingebauten Batterie verfugt der 
Macintosh Uber eine fortlaufende Uhr mit 
Kalender. Die nachsten Funktionen benut- 
zen diese Uhr: 


DATES - liefert einen String, der das aktu- 
elle Datum darstellt. Der String hat das 
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Format “mm-dd-yyyy“, gibt das Datum al- 
so in amerikanischer Notation an. 

TIME$ — gibt einen String mit der augen- 
blicklichen Tageszeit zurück. Der String 
hat das Format “hh:mm:ss“ (Stunde, Mi- 
nute, Sekunde). 

TIMER - gibt die Zahl der Sekunden an, 
die seit Mitternacht verstrichen sind. Dies 
laBt sich z. B. zur Zeitmessung verwen- 
den, wie Abb. 6 zeigt. 


5. PROGRAMMSTEUERBEFEHLE 


Hier werden solche Befehle vorgestellt, 
die den normalen Programmablauf verän- 
dern. Es gibt zwei verschiedene Gruppen 
von Programmsteuerbefehlen: solche, die 
den Programmablauf innerhalb eines Pro- 
gramms steuern, und solche, die von ei- 
nem Programm aus ein anderes Pro- 
gramm oder das Basic-System aufrufen. 


5.1. Steuerung in einem Programm 


Diese Befehle sind fast alle auch beim 
Applesoft-Basic vorhanden. Es gibt noch 
einige neue Befehle, die das strukturierte 
Programmieren, das manche vielleicht von 
Pascal gewöhnt sind, etwas besser unter- 
stützen. 


FOR I=A TO E (STEP S) - die normale 
FOR-Schleife. Als Laufvariable (hier |) 
kann jeder numerische Typ verwendet 
werden (anders als beim Applesoft-Basic, 
wo keine Integervariable 1% erlaubt ist). 
NEXT - bezeichnet das Ende einer FOR- 
Schleife. Wie beim Applesoft-Basic kön- 
nen der oder die Namen der Laufvariablen 
angegeben werden. 

GOTO nnn bzw. GOSUB nnn - der nor- 
male GOTO- bzw. GOSUB-Befehl. Es gibt 
leider auch hier noch keine symbolischen 
Adressen. 

RETURN - bezeichnet das Ende eines 
Unterprogramms, das mit „GOSUB“ auf- 
gerufen wurde. Anders als beim Ap- 
plesoft-Basic kann nach dem „RETURN“- 
Befehl eine Zeilennummer angegeben 
werden, zu der gesprungen werden soll, 
jedenfalls steht es so im Handbuch. In 
Wirklichkeit wird dadurch ein „SYNTAX 
ERROR“ erzeugt. Durch diesen Befehl 
könnte der Applesoft-Befehl „POP“ simu- 
liert werden, der beim Microsoft-Basic 
nicht mehr vorhanden ist, z. B. so: 


9600 POP 

9610 .... (Applesoft) 
wird zu 

9600 RETURN 9610 
9610 .... (Macintosh) 
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Wahrscheinlich (oder besser: hoffentlich) 
wird dieser Fehler bei der in Kürze er- 
scheinenden neuen Version des Micro- 
soft-Basic behoben sein. 


ON I GOTO n1,n2,... und 

ON I GOSUB n1,n2,... — berechneter 
Sprung bzw. berechneter Aufruf. Diese 
Befehle haben dieselbe Wirkung wie beim 
Applesoft-Basic. 


IF X THEN ... ELSE ... — der IF-Befehl 
Kann, wie hier gezeigt, noch einen ELSE- 
Teil besitzen. Dieser Teil wird dann ausge- 
führt, wenn die Bedingung (hier X) nicht 
erfüllt ist (also wenn der Ausdruck X den 
Wert 0 = falsch hat). Anstelle des Wortes 
„THEN“ kann auch das Wort „GOTO“ 
eingesetzt werden. Falls mehrere IF- 
THEN-ELSE-Befehle verschachtelt wer- 
den, bezieht sich ein „ELSE“ immer auf 
das nächstgelegene „THEN“ (wie beim 
UCSD-Pascal), z. B. erzeugt der Ausdruck 
IF A >B THEN IF B > C THEN ?“X“ ELSE 
LY 

die folgende Ausgabe: 

falls A > B > C dann „X“, 

falls A > C > = B dann „Y“, 

falls B > = A dann keine Ausgabe. 

Wie in Pascal gibt es beim Microsoft-Basic 
außer der FOR-NEXT-Schleife noch einen 
anderen Schleifenbefehl: 


WHILE X: ... : WEND - entspricht der 
WHILE-Schleife bei Pascal. Die Befehle 
zwischen „WHILE“ und „WEND“ werden 
solange ausgeführt, wie die Bedingung X 
erfüllt ist (also einen Wert < > 0 liefert). 
Diese Schleifen können verschachtelt 
werden. Auch hier gilt: jedes „WEND“ 
bezieht sich auf das nächstgelegene 
„WHILE“, wie man in Abb. 7 sieht. 


” é File Edit Control 
| Beispiel ? 








1200 W A$ o "J" AND A$ o "N" 
| {1210 PRINT "Antwort (J/N) 2"; 











Wie beim Applesoft-Basic bietet auch das 
Microsoft-Basic des Macintosh die Mög- 
lichkeit der Fehlerbehandlung: 


ON ERROR GOTO nnn - hat dieselbe 
Wirkung wie der Applesoft-Befehl 








„ONERR GOTO nnn“. Nachdem diese 
Zeile ausgeführt wurde, wird bei einem 
auftretenden Fehler keine Fehlermeldung 
ausgegeben, sondern zu der angegebe- 
nen Zeilennummer gesprungen. 


In der Fehlerbehandlungsroutine kann 
dann die Art des Fehlers und die Zeile, in 
der er aufgetreten ist, durch die Funktio- 
nen „ERR“ und „ERL“ bestimmt werden 
(s.o.). Beim Applesoft-Basic mußte man 
noch ein „PEEK (222)“ ausführen, um 
wenigstens an die Fehlernummer heran- 
zukommen. 

Die Wirkung eines „ON ERROR GOTO"- 
Befehls kann man wie folgt aufheben: 


ON ERROR GOTO 0 - bewirkt, daß bei 
einem Fehler wieder eine Fehlermeldung 
ausgegeben und das Programm abgebro- 
chen wird. 


Zur Beendigung einer Fehlerbehand- 
lungsroutine gibt es den Befehl „RE- 
SUME“. Dieser Befehl existiert in mehre- 
ren Varianten: 


RESUME oder RESUME 0 - beginnt den 
weiteren Programmablauf bei dem Befehl, 
der den Fehler ausgelöst hat (wie beim 
Applesoft-Basic). 

RESUME NEXT - beginnt mit dem Befehl, 
der direkt nach dem Befehl folgt, welcher 
den Fehler ausgelöst hat. 

RESUME nnn - setzt die Programmaus- 
führung bei der Zeile mit der Nummer nnn 
fort. 


"$ File Edit Control 


| List 
110 REM Beispiel å 
{11 REM Fehlerbehandiung 
112 REM 
1100 ON ERROR GOTO 500 in line 130 
10 INPUT “Divisor "; N 
1120 1F N > 99 THEN ERROR 255 
1130 PRINT 

FOTO 


3140 GOTC 








Division by zero 


E 
[enges NV 
ÅRUN 3 
[Divisor ? 99 E 
Å 01010101010101 
ÅDivisor ? 100 
zu groß, bitte wiederholen 


ADivisor ? 7 


1920 PRINT "Zu groß, bitte wiederholen" 
4530 RESUME 110 
3000 REM Sonst normale 
4010 REM Fehlerbehandlung 
f ) 


1620 ON ERROR GOTO € 














Mit diesen Befehlen läßt sich eine sehr 
komfortable Fehlerbehandlung program- 
mieren. Zum Testen einer solchen Routine 
(und natürlich für weitere Anwendungen) 
gibt es noch einen Befehl: 


ERROR I - simuliert das Auftreten des 
Fehlers mit der Nummer |. I kann die Wer- 
te 1 bis 255 annehmen. Da beim Micro- 
soft-Basic langst nicht alle dieser Fehler- 
nummern verwendet werden, lassen sich 





auf diese Art eigene Fehler definieren. Ein 
Beispiel für den „ERROR“-Befehl gibt 
Abb. 8. 


5.2. Wechsel von Programmen 


Zu dieser Gruppe gehören Befehle, die 
von einem Programm aus ein anderes 
Programm aufrufen, aber auch solche Be- 
fehle, die ein Programm vom Basic-Sy- 
stem aus starten oder ein Programm an- 
halten. 


RUN nnn - startet das im Speicher befind- 
liche Programm bei der angegebenen Zei- 
le. Falls keine Zeilennummer angegeben 
ist, beginnt das Programm mit der ersten 
Programmzeile. 

RUN X$,R - lädt das Programm mit dem 
Namen X$ von der Diskette ein und startet 
es. Wenn man kein ",R" an den Dateina- 
men anhängt, dann werden alle geöffneten 
Dateien geschlossen, bevor das neue Pro- 
gramm geladen wird. Beispiele: 


RUN “Pit’s Disk: Test“ startet das Pro- 
gramm, das auf der Diskette “Pits Disk“ 
unter dem Namen “Test“ abgespeichert 
ist. Dabei werden alle noch offenen Datei- 
en geschlossen. 

RUN “FilelO.3“,R startet das Programm 
mit dem Namen “FilelO.3“ und läßt dabei 
alle bisher gedffneten Dateien offen. 


CONT, 

END und 

STOP — haben dieselbe Bedeutung 
wie beim Applesoft-Basic. 


Dieselbe Bedeutung wie der Befehl „RUN 
X$,R“ hat auch ein anderer Befehl: 


LOAD X$,R - wie „RUN X$,R“. 

LOAD X$ - lädt das Programm mit Namen 
X$ in den Speicher, das Programm wird 
aber nicht ausgeführt. Man befindet sich 
danach im Basic-Betriebssytem. 

LOAD ohne Dateinamen -— lädt ein Pro- 
gramm, dessen Name der Benutzer in ei- 
nem Dialogfenster festlegen kann (vgl. 
Abb. 3 im 1. Teil der Serie). 

MERGE X$ - mischt das im Speicher 
befindliche Programm mit einem Pro- 
gramm von der Diskette. Das Programm 
mit dem Namen X$ muß im ASCIl-Format 
auf der Diskette gespeichert worden sein 
(vgl. 1. Teil). Das „Mischen“ geht so vor 
sich: Alle Zeilen des neuen Programms 
werden zu dem Programmtext des alten 
Programms im Speicher hinzugefügt. Da- 
bei werden Zeilen des alten Programms, 
die dieselbe Zeilennummer haben wie 


Zeilen des neuen Programms, durch die 
neuen Zeilen überschrieben. 


Durch diesen Befehl werden die Variablen 
gelöscht. Nach dem Befehl läuft ein Pro- 
gramm auch nicht weiter, sondern man 
befindet sich dann wieder im Basic-Be- 
triebssystem. Mit dem nächsten Befehl 
kann man das aber vermeiden: 


CHAIN X$,nnn bzw. 

CHAIN MERGE X$,nnn - lädt ein neues 
Programm von der Diskette und startet es. 
Dabei können Variablen des alten Pro- 
gramms an das neue Programm úberge- 
ben werden. Alle offenen Dateien bleiben 
geöffnet. 


Mit dem Zusatz „MERGE“ wird das neue 
Programm, das in diesem Fall eine ASCII- 
Datei sein muß, mit dem alten Programm 
vermischt, wie es oben bei dem Befehl 
„MERGE“ beschrieben wurde. 

Man kann mit „nnn“ eine Zeilennummer 
angeben, bei der das neue Programm ge- 
startet werden soll. Falls nnn weggelassen 
wird, beginnt das neue Programm mit der 
ersten Zeile. 

An den „CHAIN“-Befehl kann man noch 
bis zu zwei Zusätze anfügen: 


‚ALL - bedeutet, daß alle Variablen an das 
neue Programm übergeben werden. Falls 
dieser Zusatz nicht vorhanden ist, muß 
über einen besonderen Basic-Befehl 
( COMMON“, s. 5. Teil) angegeben wer- 
den, welche Variablen übergeben werden 
sollen. 

‚DELETE n1-n2 — bedeutet, daß vor dem 
Laden bzw. Einfügen des neuen Pro- 
gramms die Zeilen mit den Nummern von 
ni bis n2 gelöscht werden. Dies kann 
dazu benutzt werden, um Platz für ein 
neues Unterprogramm zu schaffen, das 
mit „CHAIN MERGE“ in einen bestimm- 
ten Zeilenbereich (z.B. n1-n2) geladen 
werden soll. 


Wenn einer dieser Zusätze benutzt wird, 
dann muß das Komma zwischen „X$“ und 
„nnn“ (s. Syntax oben) auch dann ange- 
geben werden, wenn gar keine Anfangs- 
zeilennummer angegeben ist: 


CHAIN “NextProgram“,ALL ist falsch, 
CHAIN “NextProgram“,,ALL ist richtig! 


Beispiele fur den ,, CHAIN “-Befehl: 
CHAIN “Prog.3“,1000,ALL — ladt das Pro- 


gramm “Prog.3“ in den Speicher und star- 
tet es bei Zeile 1000. Es werden alle Varia- 
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blen des alten Programms an das neue 
Programm übergeben. 

CHAIN MERGE “Proc.New“,,ALL,DE- 
LETE 5000-9999 — löscht bei dem im 
Speicher befindlichen Programm die Zei- 
len 5000 bis 9999 und fugt dann das Un- 
terprogramm “Proc.New“ zu dem alten 
Programm hinzu. Alle Variablen bleiben 
erhalten. 

Nach diesen doch relativ komplizierten 
Befehlen gibt es noch zwei einfachere 
Steuerbefehle: 


SYSTEM - beendet das Basic-System 
und kehrt zum normalen Macintosh-Be- 
triebssystem zurück. 

CALL Variablenname - ruft eine in Ma- 
schinensprache geschriebene Routine 
auf. Als Variablenname kann der Name 
einer der ROM-Routinen verwendet wer- 
den, die im Teil 4 beschrieben werden. 
Ansonsten ist „Variablenname“ der Name 
einer numerischen Variable, die die An- 
fangsadresse der Maschinensprache- 
Routine angibt. 


r 
@ File Edit Control 
J= Beispiel 9 =| 
| f10 REM Beispiel 9 
111 REM Maschinensprache 
112 REM 
LAO| HLOO DIM CODEZ(10) 
)AL| LLO FOR I=0 TO 10 : READ CODEZ (1) : NEXT 
O | P200X% = 123 :Y% = -9 TAUSCH = VARPTR (CODES (0)) 
IAO) W210 PRINT X% Y% 
#220 CALL TAUSCH (VARPTR (X2), VARPTR (1%) 
1230 PRINT X% Y% 
1300 END 








H400 DATA &H4E56, &HO000, &H206E, &H0008 
410 DATA &H226E, &HO00C, &H3%0 10, &H309 
420 DATA &H3280, &H4ESE, &H4E75 





Hinter diesem Befehl kann in Klammern 
(,(*,,)*) eine Liste von Argumenten an- 
gegeben werden, die vor dem Aufruf der 
Routine auf den Stack geschoben werden. 
Auf diese Art lassen sich Parameter an die 
Maschinensprache-Routine übergeben. 

Ein Beispiel dazu zeigt Abb. 9. Das Ma- 
schinensprache-Programm wird aus den 
DATA-Zeilen in das Array „CODE%“ ein- 
gelesen. Es vertauscht den Inhalt von zwei 
Integer-Variablen. Hier sieht man auch die 
Benutzung der Funktion „VARPTR“ (s.0.). 
Sie liefert zum einen die Anfangsadresse 
des Maschinenprogramms, zum anderen 
die Adressen der beiden Variablen. Falls 
jemand an dem Maschinen-,,Programm- 
chen“ selbst interessiert ist, ist im Ausga- 
befenster der Abb. 9 das Programm in 
mnemonischer (lesbarer) Form angege- 
ben; die Ausgabe des aufgelisteten Pro- 


gramms steht unter dem Strich. 
I 
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Das Modem WS 2000 ermöglicht über das Telefonnetz die 
Daten-Kommunikation zwischen zwei’ Computern an beliebi- 
gen Orten der Welt. Durch neuentwickelte, hochintegrierte 
Schaltungen kann es sowohl Signale nach den Standards der 
CCITT als auch von BELL verarbeiten. Damit sind praktisch 
alle Länder der Erde abgedeckt. 








Weltweite 
Datenübertragung mit 
dem WS 2000 


Ein Universalmodem für alle Normen 


In einem schwarzen ABS-Kunststoffge- 
häuse vereint, bietet das World Standard 
Modem WS 2000 alle gebräuchlichen 
Übertragungs-Standards und -Geschwin- 
digkeiten an und macht seinem Besitzer 
Ferndatenbanken, Bulletin Boards und 
BTX zugänglich. 

Das Modem wird mit dem Rechner über 
eine V24-Schnittstelle verbunden, die bei 
Apple, außer im Modell llc, nicht serien- 
mäßig vorhanden ist und deshalb extra 
gekauft werden muß. Die Verbindung des 
Modems mit dem Telefon erfolgt über eine 
auf der Rückseite des Gerätes herausge- 
führte Telefon-Zuleitung, die bedauerli- 
cherweise nur der englischen Postnorm 
entspricht. Daher ist es fast unumgånglich, 
den Stecker abzutrennen und die ange- 
schlossenen Zuleitungen einzeln mit der 
Telefonleitung oder dem zwischenge- 
schalteten Akustikkoppler zu verbinden. 
Auf der Frontseite des WS 2000 (s. Bild) 
sind die Bedienungselemente übersicht- 
lich angeordnet. Der größere der drei 
Drehschalter dient zur Wahl der Betriebs- 
art. Hier stehen folgende Möglichkeiten 
zur Verfügung: 


USA Bell 103, 300 Baud, Voll Duplex 
Empfangen 

USA Bell 103, 300 Baud, Voll Duplex 
Senden 

USA Bell 202, 1200 Baud, Halb Duplex 


CCITT V23, 1200 Baud, Halb Duplex 
CCITT V23, 600 Baud, Halb Duplex 
CCITT V23, 300 Baud, Voll Duplex Emp- 
fangen 

CCITT V23, 300 Baud, Voll 
Senden 


Duplex 


Beide 1200-Baud-Betriebsarten besitzen 
eine zusätzliche, mit EQU bezeichnete 
Stellung, durch die ein Entzerrer-Filter ak- 
tiviert wird. Allerdings sollte dieses nur bei 
gestörten Telefonleitungen benutzt wer- 
den, da es sonst seinerseits wieder zu 
Störungen führen kann. 

Mit dem oberen der beiden kleinen Dreh- 
schalter wird festgelegt, welchem der bei- 
den Ubertragungs-Kanále die höhere 
Baud-Rate zugeordnet werden soll. Für 
BTX und die verwandten Dienste Prestel 
bzw. Micronet muß dieser Umschalter in 
der Position 1200 RX - 75 TX stehen, d.h. 
Daten werden mit 1200 Baud empfangen, 
wåhrend gleichzeitig mit 75 Baud gesen- 
det wird. 

Der dritte Drehschalter schließlich verfügt 
über zwei Stellungen: ON LINE und LO- 
CAL. In der ON LINE-Stellung ist das Mo- 
dem mit der Telefonleitung verbunden. In 
der LOCAL-Stellung werden die vom 
Computer kommenden Signale bis zum 
Ausgang des Modems verarbeitet und 
gleich wieder durch das Modem zurückge- 
führt. Die Stellung LOCAL wird also immer 
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von Matthias Pohl 


dann zu wahlen sein, wenn keine Verbin- 
dung aufgebaut ist. AuBerdem kann hier 
ein komplettes Selbsttest-Programm akti- 
viert werden. 

Zur Anzeige und Uberwachung des Be- 
triebszustandes dienen fünf Leuchtdi- 
oden. Eine mit POWER bezeichnete Diode 
zeigt an, daß das Modem eingeschaltet ist 
und mit Strom versorgt wird. TX DATA 
leuchtet, wenn das Modem Daten vom 
Computer erhält und aussendet, RX Data 
leuchtet, wenn Daten empfangen werden, 
und CARRIER weist auf das Vorhanden- 
sein der Tragerfrequenz hin. ON LINE 
schlieBlich zeigt an, daB das Modem auf 
die Telefonleitung geschaltet ist. 

Wie nun gestaltet sich die Benutzung des 
Modems? Zuerst muß das Modem mit der 
V24-Schnittstelle des Computers verbun- 
den werden. Sehr bewährt hat sich hier als 
Interface die Super Serial Card von Apple, 
die über einen speziellen Kommunika- 
tions-Modus verfügt. Dieser bietet eine 
Vielzahl von Möglichkeiten zur Einstellung 
des Datenformats und der Datenubertra- 
gungsgeschwindigkeit. Die Baud-Raten 
von Modem und Interface mussen selbst- 
verstandlich Ubereinstimmen. Fur die Be- 
nutzung von BTX und verwandten Dien- 
sten bedarf es umfangreicher Software. 
Sollen hingegen Mailboxen oder Bulletin 
Boards in Anspruch genommen werden, 
so reicht die Kommunikations-Software 
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der Super Serial Card vollständig aus. Die- 
se wird durch die Tastenfolge IN#n (n = 
Slot, in der die SSC eingesteckt ist) Ctrl-A 
T aktiviert. Als nachstes ist Uber Telefon 
oder mit der Zusatzplatine AD-2 Uber den 
Computer der gewünschte Rechner anzu- 
wählen. Hat dies Erfolg und ist die Träger- 
frequenz als Pfeifton zu hören, so muß nur 
noch das Modem ON LINE geschaltet 
werden; der weitere Ablauf der Kommuni- 
kation hångt von der Art des angerufenen 
Systems ab. 

Die an sich schon sehr umfangreichen 
Möglichkeiten des WS 2000 können durch 
getrennt erhåltliches Zubehör noch we- 
sentlich erweitert werden. Als wichtigste 
sind an dieser Stelle die Auto Dial/Auto 


Applesoft-Editor-Macros 


Answer-Platinen AA-2 und AD-2 für auto- 
matisches Wählen und automatische An- 
rufbeantwortung zu nennen. Alle Betriebs- 
art-Umschaltungen und die Zusatzplatinen 
sind nach dem Einsatz weiterer IC’s auch 
direkt vom Rechner aus über ein Steuer- 
kabel zu bedienen. Die Anschlußbelegung 
entspricht allerdings dem ACORN B Com- 
puter. 

Das Modem WS 2000 besitzt z. Zt. keine 
allgemeine fernmeldetechnische Zulas- 
sung (FTZ-Nummer) und teilt dieses 
Schicksal mit praktisch allen erhältlichen 
Modems. Die Deutsche Bundespost ge- 
stattet deshalb keinen Anschluß des WS 
2000 an das Telefonnetz. 

Fazit: Das WS 2000 stellt aufgrund seiner 


Ein Quickie fur den PRODOS.EDITOR 


Der speziell fur das Betriebssystem Pro- 
DOS gedachte Applesoft-Editor namens 
PRODOS.EDITOR (Huthig Software Ser- 
vice) läßt u. a. die Tasten Q, W, E, R, T und 
Z als frei definierbare Tastatur-Macrobe- 
fehle mit einer Länge von je 31 Zeichen 
zu. Da der Editor jedoch in einem von 
ProDOS geschützten Speicherbereich 
liegt, Können selbstdefinierte Macros nicht 
direkt mit BSAVE und BLOAD gespeichert 
bzw. geladen werden. Deshalb wurde das 
folgende Applesoft-Programm PRODOS.- 
EDITOR.MACROS entwickelt, mit dem 
beliebig viele Macrotabellen angelegt wer- 
den können. Damit bei Macros Ctrl-Zei- 
chen wie etwa Return (Ctri-M) zulässig 
sind, muß man die Definition eines Macros 
entweder mit der Del-Taste (Apple Ile/IIc) 
oder mit Ctrl-Null (Apple II Plus) abschlie- 
Ben. Diese zwei Tasten sind die einzigen 
Ctrl-Zeichen, die nicht Bestandteil eines 
Macros (und im übrigen auch nicht eines 
Strings) sein können. Ctrl-Zeichen werden 
am Bildschirm invers angezeigt. Da auch 
Links- und Rechtspfeil zu den zulässigen 
COtrl-Zeichen gehören, ist ein Editieren der 
Macrozeile nicht möglich. 

Die Unterroutine in dem Applesoft-Pro- 
gramm Zeilen 350-430 ist auch für andere 
Programme verwendbar, bei denen in ei- 
nen String beliebige Ctrl-Zeichen einge- 
geben werden sollen. Man beachte je- 
doch, daß die Routine nicht mit der 80- 
Zeichenkarte des Apple Ile funktioniert, da 
diese z. B. kein ESC als Ctrl-Zeichen zu- 
läßt. us 
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vielfältigen Betriebsarten ein universell 
einsetzbares Modem dar. Die Verwen- 
dung mit einem Apple-Rechner ist unter 
Einsatz der Super Serial Card unproble- 
matisch. Das erhältliche Zubehör erlaubt 
einen den individuellen Erfordernissen 
entsprechenden Ausbau der Leistungs- 
merkmale des Modems. 

Bezugsquelle: Miracle Technology (UK) 
Ltd., Ipswich IP1 1XB. Importeur: Claus F. 
Erbrecht, Computer Related Products, 
Lappenbergsallee 37, 2000 Hamburg 20, 
Tel. 040/8505255. WS 2000 DM 798,-, 
Zusatzplatinen je DM 199,50. Weiteres 
Zubehör wie Kabel, Interface, Software 
usw. ist erhåltlich, ein Akustikkoppler AC- 
1 in Vorbereitung. 4 





100 TEXT : HOME : CLEAR : DIM M$(6), S$(6), L(6) 
110 INVERSE : PRINT "PRODOS.EDITOR-MACROS": NORMAL 
120 PRINT : PRINT "1 MACROS EINLESEN" 

130 PRINT : PRINT "2 MACROS ANLEGEN" 

140 PRINT : PRINT "3 ENDE" 

150 PRINT 


160 GET X$: ON X$ < > "1" AND X$ < > "2" AND X$ < > 


"3" GOTO 160: IF X$ = "3" THEN END 
170 REM *** MACROS EINLESEN *** 
180 IF X$ = "1" THEN HOME : PRINT : 


"RESTORE";N$: GOSUB 290: END 

190 REM *** MACROS ANLEGEN *** 

200 HOME : PRINT "DEL = ENDE MACRO-EINGABE" 

210 DATA Q,W,E,R,T,Z 

220 RESTORE : 

250 FOR Y = 1 TO 6: PRINT : 
NORMAL : PRINT ": ";: 
L(Y) = L: NEXT 

240 PRINT : PRINT "OKAY J/N "; 

250 GET X$: IF X$ = "N" THEN 100 

260 IF X$ < > "J" THEN 250 

270 HOME : 
"; N$: PRINT CHR$ (4)"STORE";N$: END 

280 REM *»»* MACROS POKEN *** 

290 FOR Y = 1 TO 6 

300 H = 36182 + (Y - 1) * 32 

310 POKE H,L(Y) 


INVERSE : 


FOR Y = 1 TO 6: READ M$(Y): NEXT 
PRINT M$(Y);: 
GOSUB 360:S$(Y) = A$: 


PRINT CHR$ 
(4)"CAT": INPUT "NAME: ";N$: PRINT CHR$ (4) 


GOSUB 290: PRINT CHR$ (4)"CAT": INPUT "NAME: 


320 FOR X = 1 TO L(Y):H =H + 1: POKE H, ASC ( MID$ 


(S$(Y),X,1)) + 128: NEXT X 
330 NEXT Y 
340 RETURN 
350 REM *** INPUT MACROS *** 
360 L=1:A$ =" 


370 GET X$: ON X$ < > "" GOTO 380: ON L = 1 GOTO 360:L 


= L - 1: GOTO 430 
380 A = 
360:L = L - 1: GOTO 430 
390 A$ = A$ + X$ 
400 IF A < 32 THEN INVERSE : 
NORMAL : GOTO 420 
410 PRINT X$; 
420 IF L < 31 THEN L = L + 1: GOTO 370 
430 PRINT " "L: RETURN 


ASC (X$): ON A < > 127 GOTO 390: ON L = 1 GOTO 


PRINT CHR$ (A + 64);: 













Apple 






Imagewriter 


DM 1.450.-- 









Preisliste 
sofort anfordern 


Versend 

per Nachnahme oder 

Vorauskasse (bar oder Scheck) 

Alle Angebote basieren auf aktuellen 

Tegespreisen. Vollständige Preisliste gegen 
DM 4.00 in Briefmarken. Bestellungen schriftlich oder 

telefonisch. Lieferung unfrei, ab Lager innerhalb 24 Stunden. 


»»»pyramid versand Koslik << 
>>>>>> 7800 freiburg steinhalde 103 <<<<<<< 
>>> telefon 07617 B3BTI «aa 


Eigentlich wollte ich einen nüchternen Be- 
richt schreiben, aber jetzt wird es doch ein 
ganz persönlicher. Den Anstoß zu diesem 
Umschwung gab ein Test über Exbasic 
Level IIl im neuen Magazin Apple's (CW- 
Publikationen Verlag). Tester Andreas 
Dripke stimmte mich dort so positiv ein, 
daß ich nicht umhin konnte, einmal selber 
alles ganz genau nachzuprüfen. 

„So etwas wie eine Verpackung scheint 
der Hersteller nicht zu kennen, das Ganze 
kommt reichlich lose, aber immerhin 
bruchsicher eingewickelt ins Haus. Hier 
hat man offensichtlich der Güte des Pro- 
dukts die Präferenz gegenüber bunter 
Verpackung gegeben.“ schreibt Tester 
Dripke. Ersteres konnte ich bestätigen, 
letzteres nur hoffen. 


Die Handbücher 


Exbasic Level II wurde 1981 für Commo- 
dore-Rechner entwickelt und 1983 dann 
für den Apple angepaßt. Diese Tradition 
schlägt sich in zwei Handbüchern nieder, 
die Sie geliefert bekommen. Ein dickes 
(ca. 110 Seiten) für Commodore und ein 
Nachtrag (ca. 25 Seiten) für Apple. „Die 
Bücher sind gut zu lesen“ schreibt Tester 
Dripke. Motiviert stürzte ich mich in das 
Apple-Addendum, das mir bald sagte, ich 
solle jetzt einige Seiten im Commodore- 
Heft weiterlesen. So getan, gelangte ich 
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bald wieder in den Nachtrag zurück, wo 
mir dann erklärt wurde, was alles von dem 
eben Gelesenen bei Apple nicht gilt und 
wie es dort statt dessen heißen muß. Das 
Spielchen ging einige Male hin und her, 
vor und zurück. Wahrhaft gut zu lesen! Für 
fast 400,- DM sollte der Käufer eigentlich 
erwarten können, eine vollständige Anlei- 
tung zu erhalten. Aber messen wir Exbasic 
Level Il lieber an seinen Taten als an sei- 
ner Beschreibung. 


Die Platine 


Tester Dripke ermutigte mich: „Der Einsatz 
der Platine in den Computer ist problem- 
los. Allerdings: Im Unterschied zu der 
Mehrzahl der Apple-Karten müssen die 
Bauteile von vorne gesehen nach links 
zeigen.“ Also frisch ans Werk, Netzteil 
aus, den Deckel ab und die Karte in den 
empfohlenen Slot 2. Die erste Überra- 
schung: Sie paßt nicht! Das EPROM 2764 
mit Sockel ist gewaltig dick und macht den 
Bausteinen auf meinem Druckerinterface 
in Slot 1 den Platz streitig, so daß beide 
Karten nicht gleichzeitig im Gerät stecken 
können. Die Apple-Slots stehen nun ein- 
mal sehr eng, und nur wenn sich alle Her- 
steller an das ungeschriebene Gesetz hal- 
ten, ihre Karten nach rechts zu orientieren, 
wird es zwar eng, aber es geht. Exbasic 
Level II ist meines Wissens die erste Kar- 





te, die nach links zeigt. Ihr Hersteller sollte 
schleunigst den Aufbau ändern, was bei 
nur 6 Bauteilen nicht unlösbar sein dürfte. 


Die Versionen 


Exbasic Level Il gibt es in zwei Versionen 
für den Il Plus und den Ile. Diese Tatsache 
ist weder im Handbuch erwähnt noch auf 
der Karte selbst vermerkt. Die Unterschie- 
de liegen ausschließlich in der Software, 
die in der Version für den Ile auch die 
Cursortasten, DEL und TAB auswertet so- 
wie den 80-Zeichen Bildschirm unter- 
stützt. Bei der Initialisierung der Karte wird 
der Zustand des Rechners ebenso über- 
prüft wie das Vorhandensein von Steck- 
Karten. Scheitern diese Tests, weil z.B. ein 
Apple II Plus vorliegt, aber eine lle-Karte 
verwendet wird, stürzt das System ab. Ei- 
ne Fehlermeldung wäre freundlicher ge- 
wesen. Also achten Sie auf die richtige 
Karte! Fur den Apple lic ist eine Disketten- 
version in Vorbereitung. 


Das Software-Modul 


Exbasic Level II ist in 6502-Assembler ge- 
schrieben und belegt den AdreBbereich 
von $D000 bis $EFFF parallel zum Ap- 
plesoft-Interpreter. Damit es hier keine 
Probleme gibt, werden bei der Initialisie- 
rung entsprechende Treiberroutinen nach 
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im Test 


Eine Basic-Erweiterung bringt Sie ins Staunen, 


nicht nur positiv. 


von Dr. Jürgen B. Kehrel 


Den Versuch, das antiquierte Applesoft-Basic zu 
erweitern, haben schon viele unternommen. 

Ganze Sammlungen von nachladbaren Routinen sind 
dabei entstanden, die zumeist über den Ampersand-Vektor 
& an Applesoft angekoppelt werden. Exbasic Level Il geht 
hier einen anderen Weg. Es ist standig auf einer kleinen 
Karte vorhanden, die Sie bei Bedarf mit einem POKE 


$300-$3CF geschrieben. Dieser Spei- 
cherbereich steht Ihnen also nicht mehr 
zur Verfügung, z.B. für eigene kleine As- 
semblerprogramme. Die gesamte Softwa- 
re ist in einem 8K-EPROM abgelegt und 
mit 3 weiteren integrierten Schaltungen 
auf der kleinen Platine untergebracht. Die 
Typenbezeichnungen dieser Bausteine 
sind heruntergekratzt, eine um sich grei- 
fende Unsitte bei Herstellern, um Nach- 
bauten zu erschweren. Ein Schaltbild er- 
halten Sie selbstredend dann auch nicht. 
Wenn einmal etwas kaputt gehen sollte, 
sind Sie immer auf den Service des Händ- 
lers oder des Herstellers angewiesen. 


Der Full-Screen-Editor 


Der Apple ist nur mit einem Minimaleditor 
ausgestattet, der von Exbasic Level II zu 
einer vollwertigen Programmierumgebung 
ausgebaut wird. Der neue Editor erlaubt 
es, Programmzeilen zu ändern, ohne die 
ganze Zeile mit dem Cursor überstreichen 
zu müssen. Bei einem RETURN wird die 
ganze Zeile so übernommen, wie sie auf 
dem Bildschirm steht, unabhängig von der 
Position des Cursors. EINFÜGEN und 
LÖSCHEN werden über ESC und Pfeilta- 
sten (II Plus) oder über DEL und TAB (Ile) 
gesteuert. Das funktioniert auch im Direkt- 
modus, wenn Sie z. B. aus einem CATA- 
LOG ein Programm aufrufen wollen. Sie 


aktivieren können. 


schreiben nur RUN in der richtigen Höhe 
und drücken Return. Der Rest der Zeile 
wird mit übernommen. Die Cursortasten 
rollen Ihr gesamtes Programm, das nach 
oben oder unten über den Bildschirm ge- 
schoben wird, ohne daß Sie auch nur ein- 
mal LIST sagen mußten. Ausgewachsene 
Editoren bringen sicherlich noch etwas 
mehr, der Exbasic-Editor ist aber für die 
meisten Fälle schon voll ausreichend. 


Die Hilfsfunktionen 


Die Hilfsfunktionen unterstützen die Arbeit 
des Editors. Es sind im einzelnen: 

HELP Zeigt alle Befehlsworte von Exbasic 
Level II an. 

MEM Zeigt die Größe und Belegung des 
Apple-Speichers an. 

MATRIX/DUMP Gibt alle einfachen und 
alle Feldvariablen aus. 

MATRIXDIM Zeigt die Dimensionierung 
aller Feldvariablen. 

SYSTEM Identisch mit CALL -151. 
BASIC Schaltet Exbasic Level II ab. 
MERGE Fidgt ein Programm von Diskette 
oder Kassette in oder an ein im Speicher 
stehendes Programm. 

AUTO Automatische Zeilennummernge- 
nerierung mit wahlweisem Anfang und be- 
stimmbarer Schrittweite. 

RENUM Numeriert ein Programm neu, lei- 
der immer nur ganz. 


dis si: HARdWARE-TEST 44 


FIND Sucht nach einem Befehl oder Text 
im Speicher. Listet entsprechende Zeilen. 
Die angenehmste Überraschung war für 
mich die Funktion ON/OFF. Beim Auste- 
sten von Programmen wird nicht nur 
„SYNTAX ERROR“ ausgegeben, sondern 
statt dessen die ganze Zeile gelistet und 
der Cursor über die fehlerhafte Stelle ge- 
setzt, die so in Windeseile zu berichtigen 
ist, da auch der Editor natürlich sofort aktiv 
ist. OFF schaltet zum normalen Applemo- 
dus zurück. Das Exbasic TRACE zeigt 
nicht nur die Zeilennummern wie Ap- 
plesoft, sondern listet die entsprechende 
Zeile und stellt einen Leuchtzeiger über 
den gerade bearbeiteten Befehl. Mit 
SPEED= 100 oder ähnlich können Sie 
dann genüßlich Ihrem Programm „auf die 
Finger sehen”. 


Mathematische Funktionen 
MIN/MAX Sucht in einer Liste von Zahlen 


oder Variablen den kleinsten/größten 
Wert. 

ODD Prüfung auf gerade oder ungerade 
Zahl. 

HEX$/DEC Umrechnung Hexadezimal/ 
Dezimal. 


RND Erzeugt ganzzahlige Zufallszahlen > 
= 1 


ROUND Rundet Dezimalzahlen auf eine 


vorgegebene Zahl von Nachkomma- 
stellen. 

FRAC Gibt den Nachkommateil einer Zahl 
aus. 


Bildschirmbefehle 


SCREEN Definiert das Bildschirmfenster. 
Ersetzi POKE 32, 33, 4 

DELLINE Löscht eine Zeile, rückt den 
Rest von unten nach. 

INSTLINE Fügt eine Zeile ein, schiebt den 
Rest nach unten. 

BEGINLINE Löscht vom Cursor zum Zei- 
lenanfang. 

ENDLINE Löscht vom Cursor zum Zeilen- 
ende = CALL -868. 

BEGINPAGE Löscht vom Cursor zum 
Seitenanfang. 

ENDPAGE Löscht vom Cursor zum Sei- 
tenende = CALL -958. 

SCREEN UP/DOWN Schiebt den ganzen 
Bildschirm eine Zeile hoch oder runter. 


Basicbefehle 


IF.THEN.ELSE Ermöglicht Mehrfachver- 
zweigungen fir den Fall, daB die IF-Bedin- 
gung nicht zutrifft. 

CLEAR Array Löscht ein Variablenfeld mit 
Inhalt und Dimensionierung. 
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DEEK/DOKE Doppelbyte-PEEK bzw. 
-POKE, um Zahlen bis 65535 in einem 
Schritt in zwei aufeinanderfolgenden Spei- 
cherstellen zu bearbeiten. 

EVAL Wertet im Gegensatz zu VAL auch 
einen numerischen Ausdruck aus. 
GOTO/GOSUB Erlauben auch errechnete 
Sprünge, die aber jedes Programm sehr 
unübersichtlich machen. 

RESTORE Erlaubt mittels Parameter, den 
DATA-Zeiger auf eine ganz bestimmte 
Zeile zu setzen, als ON .. RESTORE sogar 
mit Parameterliste. 

RESUME/.NEXT Springt nach einem Feh- 
ler die angegebene oder die nåchste Zeile 
an. 

SEC SEC X hålt das Programm X Sekun- 
den an. 

POP NEXT Aussprung aus einer Schleife 
mit Korrektur des Stacks. 

POP CLEAR Löschen des ganzen Stacks. 
INPUTFORM Verbessertes INPUT, das 
auch ,:“ akzeptiert. Der Editor ist bei der 
Eingabe aktiv. 

DEF USR=/DEF PERFORM Dienen zum 
Einbinden von Maschinenprogrammen, in- 
dem der USR-Vektor festgelegt wird bzw. 
die Adresse eines Programmes, das dann 
mit PERFORM aufgerufen werden kann. 
Eine Sammlung solcher Programme 
(SOFTMODULE) ist in Vorbereitung. 
INSTR Instring-Routine, um einen String 
in einem anderen zu suchen. 

SWAP Tauscht zwei Variablen gleichen 
Typs gegeneinander aus. 
STRING$/SPACE Gibt ein Zeichen sooft 
aus, wie es dem Parameter entspricht 
bzw. bis der angegebene Raum gefüllt ist. 
PRINT USING/USING$ Formatierte Text- 
und Zahlenausgabe. 

VARPTR Ermittelt die Adresse einer Va- 
riablen im Speicher. 

PRINT AT Positioniert den Cursor auf ei- 
ner der 960 möglichen Bildschirmpositio- 
nen (nur 40 Z/Z). 

HARDCOPY Gibt den Bildschirm auf den 
Drucker aus. 

MUSIC Erzeugt Töne von angegebener 
Dauer und Tonhöhe. 


Wie arbeitet Exbasic 


Im Prinzip arbeitet Exbasic Level Il mit der 
sogenannten CHRGET-Manipulation. Kurz 
gesagt, es wird dabei jede Eingabe erst 
einmal daraufhin überprüft, ob sie ein Ex- 
basic-Wort enthält. Wenn ja, arbeiten die 
Exbasic-Routinen, andernfalls wird das 
Kommando an Applesoft weitergegeben. 
Dieser Umweg bedingt, daß auch reine 
Applesoftprogramme langsamer laufen 
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(bis 10%), wenn Exbasic aktiv ist. Ap- 
plesoft speichert seine Befehlsworte platz- 
sparend in einem Byte (= Token) ab; nicht 
so Exbasic. Hier steht das volle Wort im 
Speicher und frißt den durch die Mächtig- 
keit der Befehle gewonnenen Raum wie- 
der auf. Ein Exbasic-Programm ist weder 
compilierbar noch läuft es auf einem Rech- 
ner ohne die Erweiterungskarte. Auch un- 
ter ProDOS gelang es mir nicht, Exbasic 
zum Leben zu erwecken, da es versucht, 
einige dort nicht mehr vorhandene Spei- 
cherstellen zu lesen. INTEGER-BASIC 
dürfen Sie mit INT nicht aufrufen, da sich 
das System dann „aufhängt“. Auch wer 
gewohnt ist, mit FP den Speicher zu lös- 
chen, muß sich umstellen, da ebenfalls ein 
Systemabsturz erfolgt, aus dem Sie selbst 
RESET nicht befreit. Entsprechende Hin- 
weise fehlen leider im Handbuch. 


Gesamteindruck 


Mein Gesamturteil bleibt zwiespältig: Einer 
Reihe von wirklich sinnvollen neuen Be- 
fehlen und einem recht guten Editor ste- 
hen die „verbaute“ Platine und ein un- 
übersichtliches Handbuchgespann gegen- 
über. Wenn der Hersteller sich zu einer 
Neuauflage von Karte und Anleitung 
durchringt, kann ich Ihnen Exbasic Level Il 
empfehlen, im jetzigen Zustand leider nur 
sehr eingeschränkt. 


Lassen wir doch noch einmal Tester Drip- 
ke zu Wort kommen: „Fazit: Mit Exbasic 
erhält man eine solide, technisch ausge- 
reifte Basic-Erweiterung, die ihre 392 Mark 
wert ist.“ 


Bezugsauelle: Exbasic Level Il, Versionen 
für Apple II Plus, Ile (Ilc in Vorbereitung) 
und Basis 108, Preis DM 392,- inkl. Mwst., 
Hersteller: Unternehmensberatung An- 
dreas Dripke, Wiesbaden, Vertrieb: IN- 
TERFACE AGE Verlag GmbH, Josefs- 
burgstr. 6, 8000 München 80 











DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler 
geschriebenes, ungewöhnlich schnel- 
les, unkompliziertes und zugleich 

„narrensicheres“ Adreß-, Datei- und 

Schemabriefprogramm. 

Der DB-Meister dient zum Anlegen, 

Pflegen, Sortieren, Selektieren und 

Ausdrucken von Dateien aller Art. Als 

Apple-Benutzer wissen Sie, wie lang- 

sam viele Programme dieser Art sind. 

Nicht so der DB-Meister! 

Drei Beispiele: 

— Jeder beliebige von 560-999 Re- 
cords wird nach Indexfeldern in 0,2 
Sekunden gefunden. 

— Eine komplette Datendiskette mit 
z.B. 600 Records läßt sich in 1 
Minute nach 3 Feldern sortieren 
und untersortieren. Dabei ist die 
Zeit für Diskettenzugriff bereits mit- 
gerechnet. 

— Das Einlesen eines 50 Sektoren 
langen Programm-Moduls dauert 
nur 3,5 Sekunden. 


Technische Daten des DB-Meisters 
— Recordlänge bis zu 230 Zeichen 


— 560 bis 1000 Records pro Daten- 
diskette 


— Maximal 25 Felder pro Record 


— 4 Datentypen (String, Integer, Dezi- 
malzahl, Real) 


— Suche nach 3 Indexfeldern — je 4 
Zeichen lang — mit Wildcard-Funk- 
tion 

— Sortieren und Filtern (kumuliertes 
Selektieren) geschieht nach den 
Index-Feldern 


— Ausdruck der Dateien als Etiketten, 
Listen und Schemabriefe (mit Fel- 
der- und Tastatureinschüben an be- 
liebigen Stellen des Formbriefes) 


— normal kopierbare Programmdisket- 
te, unterteilt in Hauptprogramme 
und diverse Hilfsprogramme 

— einsatzfähig auf Apple lle oder lc. 
(Achtung: Brief-Modul läuft nicht mit 
Videx-Karte!) 


— 256K RAM-Disks verwendbar 
Gesamtpreis 290,— (2 Disketten + 


gedrucktes Manual) 
U. Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 





EDV-Programme ADD 


CE-50 für Apple-Computer ? 
Typenrad mit A eae ee beer nt 
å F i 9 un e so scnne | | opula | 
A 11/11 al ia cc Um- Rechner. Die TempoHexe beschleunigt alle Pro- 
gramme bis zu 31/2 mal - absolut ohne jede Soft- 
DE e e e O usw.) ware-Änderung! Einfach einstecken, einschalten 
Interface . Baufinanzierung Bar 
= (alle geltenden Gesetze auf dem TER ee A 
Fúr Ausgabe und neuesten Stand und im Handbuch ee TTO 
Eingabe ! . Adressen- und Textverwaltung METER y 
(Erstellung von Serienbriefen mit a, | 
DM 1298,- an er individueller Anrede, Auswahl nach ph = SE 
zZ verschiedenen Kriterien usw.) — ESS re 


ae ogå å it Mo ae 7602 Oberkirch 
Ausführliche Handbücher oe | | Tel.: (07802) 3707 
Information, å u | Telex: 752637 sfe d 


Lizenz- a P | 
erteilung, 3 a... Katalog gegen DM 1.- 
Schulung: i = a | in Briefmarken. 

z E me Wir haben die neuste 


CPS-DATENSERVICE GMBH TT Mp 


$ ... på herie für den Appl 
Frankfurter Str. 126, 6050 Offenbach RD TE ee 


QUALITÄT AUS ERSTER HAND. — — Telefon 069-88 05 90 


Für DOS, Apple-Pascal, 
CP/M und Textpro- 
gramme dieser Betriebs- 
systeme. 


Für alle CE-u. EM-Typen 
ar Verkauf/Software 









electronic High-Res Taschenrechner in Assembler fir Apple Il/Ile/llc mit Apple Maus. 
Kock & Mreches GmbH 20-stellige Rechner-Anzeige, Vorkasse-Scheck 35,— DM. 

3004 Isernhagen 4 

Tel. 05139-87393 Kurt Nolte - FeldstraBe 26 - 6102 Pfungstadt 








MICROMINT 


VMucromint 
LLTREFFER 
LASAR 16 


— IBM Comp. 64 K, Contr. 











Erscheinungs- und Anzeigen- 
schluBtermine fur peeker 


eo 











TEAC FD 55 B 
Ausgabe Erscheinungs- Anzeigen- Netzteil 15 A 3.990; 
termin schluß III | LASAR ZE 
EEK JE. z 
25. 2.85 25. 1.85 AREA | pre comp. SAK + 
6502 +Z80A 1 432; 
25; 3.85 22: 2:05 = i 
Außerdem volles Rückgaberecht innerhalb 
29 485 29 3.85 14 Tagen ohne Begründung. 
Apple 
20. 5.85 19. 4.85 O Mehrzweckgeháuse It. Abb. 209,-| 209,- 
@ Schaltnetzteile Apple5A/IBM15A 115,—| 350,— 
24. 6.85 24. 5.85 O Profitastatur dtsch. MAK Il 365,-| 365,- 
O Interface ab 100,—400,80 
22. 1.85 . 6.85 ® Drucker Epson komp. 1095,—11095,— 
26. 8.85 va HÅ BE Prompte Belieferung von 1000 m? Lagerfläche. 
Kostenlose Tiefstpreishändlerliste noch heute 
23. 9.85 . 8.85 schriftlich anfordern — großes Angebot an 
IBM-Comp. 
21. 10. 85 . 9.85 Generalimporteur MICROMINT Computer GmbH 
25.11.85 85 Hochdahler Straße 151, 4006 Erkrath 2 
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Hinweise für Autoren 


Wir suchen laufend Beiträge: Erfahrungsberich- 
te über kommerzielle Hardware- und Software- 
Produkte, Tips und Tricks für Anwender und 
Programmierer, gut dokumentierte Programme 
für Anfänger und Fortgeschrittene, hardware- 
technische Beiträge usw. Wir zahlen DM 200,- 
pro Druckseite, gleichviel ob Text oder Pro- 
gramm, wobei ein Beitrag mehrere Druckseiten 
oder gar mehrere Aufsatzfolgen umfassen 
kann. Es lohnt sich also, für uns zu schreiben. 
Alle Textbeiträge einschließlich der Programmli- 
stings werden von einem Apple Ile direkt in die 
Lichtsatzanlage unserer Druckerei übertragen. 
Im einzelnen sind deshalb folgende Richtlinien 
zu beachten: 


Beiträge müssen sowohl als Papierausdruck 
wie auch als Diskette eingereicht werden. Zur 
Zeit können ausschließlich die klassischen 51/4 
Zoll Disketten für Apple Il/Ile/lIc angenommen 
werden. Berücksichtigt werden grundsätzlich 
nur Originalaufsätze und Originalprogramme. 
Es ist jedoch urheberrechtlich zulässig, aus 
Werken anderer Urheber zu zitieren. So können 
Sie z.B. Teile aus einem fremden Programm in 
Ihr eigenes übernehmen. In diesem Fall muß 
jedoch an geeigneter Stelle ein Zitathinweis er- 
folgen, etwa in der Form „Zeilen X-Y enthalten 
den Teil Soundso aus dem Programm ABC des 
Autors X, erschienen bei Firma Y, Ort und 
Jahr“. 

Wie im Verlagswesen üblich, übertragen Sie 
uns mit den eingereichten Aufsätzen und/oder 
Programmen das Recht der Vervielfältigung und 
Verbreitung in jeder Form. Speziell in bezug auf 
die Programme besagt dies, daß sie von uns 
nicht nur in Druckform, sondern auch in Disket- 
tenform vertrieben werden, und zwar als Pee- 
ker-Sammeldisketten, die in unregelmäßiger 
Folge erscheinen und eine Auswahl der größe- 
ren Programme als Quell- und Objekt-Code 
enthalten. Versehen Sie Ihre Programme nicht 
mit dem amerikanischen Copyright-Vermerk, 
sondern schreiben Sie statt dessen nur „Von 
Name, Ort und Jahr“. 


1. Textbeiträge 


a) Die Aufsatztexte sollten im Idealfall mit einem 
DOS-3.3-Textprogramm erstellt werden, das 
normale ASCII-Textfiles erzeugt, z.B. Applewri- 
ter II/Ile usw. Wordstar-Dateien im CP/M-For- 
mat sind ebenfalls möglich, doch müssen in 
diesem Fall die Texte endlos (ohne Silbentren- 
nung) erfaßt werden. 

b) Die Texte dürfen keinerlei Steuerzeichen für 
Matrixdrucker usw. enthalten. Überschriften 
dürfen nicht unterstrichen werden. Vielmehr 
brauchen lediglich im ausgedruckten Manu- 
skript die Überschriften sowie darüber hinaus 
im Text selbst Hervorhebungen mit einem Farb- 
stift o.ä. markiert zu werden. Die entsprechende 
Kodierung für die Satzanlage wird dann von uns 
übernommen. 
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c) Der Text muß grundsätzlich endlos erfaßt 
werden, d.h. ein Return darf nur am Absatzende 
und niemals am Zeilenende stehen, da der 
Satzrechner sonst keinen automatischen Um- 
bruch mehr vornehmen kann. Vermeiden Sie 
darüber hinaus Einzüge zu Beginn eines Absat- 
zes. Auch dies besorgt nämlich die Satzanlage 
automatisch. 

d) Ausgangspunkt unserer Kodierung ist der 
deutsche ASCll-Zeichensatz, also mit Umlau- 
ten, B usw. anstelle von eckigen und geschweif- 
ten Klammern. Wenn Sie — z.B. beim alten 
Apple Il — keine Umlaute usw. eingeben kön- 
nen, rufen Sie uns an. Bei Texten, die sowohl 
die deutschen als auch die amerikanischen 
ASCII-Sonderzeichen enthalten sollen, z.B. bei 
Pascal-Aufsätzen, müssen die letzteren kodiert 
werden. Kodierung bedeutet, daß eine Buchsta- 
benkombination, z.B. „Sp“ für griechisches n 
durch unser Transmitter-Programm in den ent- 
sprechenden Kode der Satzanlage konvertiert 
wird. 

e) Vermeiden Sie unnötige Einrückungen und 
Kurztabellen. Ferner mischen Sie bitte nicht 
Aufsatztexte mit Programmtexten, da letztere 
gesondert in die Satzanlage übertragen werden. 
Größere Tabellen, die von uns konventionell 
gesetzt werden, sind auf gesonderten Textfiles 
zu speichern. Es genügt, wenn Sie senkrechte 
Trennlinien mit Kuli 0.å. andeuten. Schaubilder 
usw. sind stets willkommen. Hierzu genügen 
Bleistiftskizzen als Vorlagen für unsere Rein- 
zeichner. 

f) Achten Sie bitte auf Orthographie und Inter- 
punktion. Deutsch ist immer noch eine wichti- 
gere Sprache als Basic und Assembler! 


2. Programmlistings 


Beachten Sie, daß wir im Gegensatz zu anderen 
Computer-Zeitschriften Programmlistings nicht 
von den meist sehr haBlichen Printouts abpho- 
tographieren, sondern wie die Textbeitrage von 
Diskette in die Satzanlage Ubertragen, wobei 
eine besondere Schreibmaschinen-Lichtsatz- 
schrift verwendet wird. Nur bei exotischen Pro- 
grammiersprachen wahlen wir z. Zt. noch den 
konventionellen Weg. 


2.1. Basic-Programme 


a) Applesoft-Programme usw. liefern Sie bitte 
als normale Programm-Files, die von uns fiir die 
Satzanlage aufbereitet werden. 

b) Zeilennummern sollten stets dieselbe Stel- 
lenzahl haben, z.B. nur 3stellige Zeilennum- 
mern 100, 110, 120 o.ä., damit diese Zahlen 
von uns korrekt freigestellt werden können (RE- 
NUMBER anwenden). 

c) REM'’s sollten der besseren Lesbarkeit halber 
möglichst in Groß-Klein-Buchstaben geschrie- 
ben werden. 

d) Menü-Texte, REM’s usw. müssen unbedingt 
in Deutsch sein. Englischsprachige Programme 
werden nicht angenommen. Englische Compu- 
ter-Fachausdrücke sind demgegenüber selbst- 
verständlich zulässig. 


2.2. Assembler-Programme 


a) Assembler-Programme sind als Source- 
Code und als Objekt-Code auf Diskette einzu- 
reichen. Wir bevorzugen den Assembler na- 
mens Merlin (= Big Mac) von G. Bredon. Ver- 
wendbar sind ferner Lisa 2.5, Toolkit-Assem- 
bler, ProDOS-Assembler sowie jeder andere 
Assembler, bei dem die Möglichkeit besteht, 
anstelle auf Papier auf Diskette zu assem- 
blieren. 

b) Der Source-Code sollte möglichst im 40- 
Z/Z-Modus geschrieben werden, damit die 
assemblierten Listings in der Zeitschrift 2spaltig 
gesetzt werden können. In der Kommentarspal- 
te des Source-Codes sollten nur ganz kurze 
Bemerkungen stehen. Längere Kommentare 
schreibe man über die Befehle in reine Kom- 
mentarzeilen, wobei auch diese 40 Zeichen pro 
Zeile nicht überschreiten sollten. 

c) Vermeiden Sie Makros und seltene Pseudo- 
Op-Codes, damit der Quell-Code ohne großen 
Aufwand in einen anderen Assembler konver- 
tiert werden kann. 


2.3. Sonstige Programme 


Programme in selteneren Programmierspra- 
chen sind willkommen, erfordern jedoch eine 
vorherige Absprache wegen der Konvertie- 
rungsmöglichkeit. Ggf. muß ein Schönschreib- 
drucker-Printout erstellt werden. 


Für unsere Zeitschrift »peeker« suchen wir noch einen 





Redakteur 


Er sollte den Apple II in- und auswendig kennen, flott 

(mindestens 30 Baud), dudenfest und stilsicher schreiben 

können und vorzugsweise über CP/M- und Pascal-Program- 
mierkenntnisse verfügen. Es erwartet ihn eine äußerst 
reizvolle Aufgabe in einem großen Verlagshaus in einer 


der schönsten Städte Deutschlands. 


Ihre Bewerbung mit den üblichen Unterlagen sowie mit 
Proben Ihrer bisherigen schriftstellerischen Tätigkeiten 


richten Sie bitte an 


Verlagsgruppe Dr. Alfred Hüthig, Personalabteilung, 
Postfach 10 28 69, 6900 Heidelberg 1 








Das Buch zum Apple Il 


von Erich Esders 

1984, 210 S., geb., DM 54,- 
ISBN 3-7723-7641-X 
Franzis Verlag, München 


Für den fortgeschrittenen Apple Il 
Benutzter hat gute Literatur eher 
Seltenheitswert, besonders wenn 
sie auch noch in Deutsch ge- 
schrieben ist. Esders hat hier die 
Ergebnisse vieler Stunden am 
Rechner zu Papier gebracht. Ap- 
plesoftkenntnisse und zumindest 
praktische Grundfertigkeiten in 
6502-Assembler sollte der Leser 
schon mitbringen, um mit den vie- 
len Einblicken in das Innenleben 
des Apple etwas anfangen zu kön- 
nen. Einer kurzen Einführung in 
den Prozessor und in den Spei- 
cheraufbau folgt als Hauptteil des 
Buches die Darstellung des Basic- 
Interpreters, der zu diesem Zweck 
teilweise disassembliert und kom- 
mentiert wurde. Alle wichtigen Ein- 
sprungstellen von Basic-Befehlen, 
Floating-Point-Routinen, String- 
operationen bis hin zur hochauflö- 
senden Grafik sind benannt. In 
übersichtlicher Tabellenform wur- 
den die Einsprungbedingungen 
(was muß wo stehen), die benutz- 
ten Register und Speicher sowie 
die Ausgabe dokumentiert. Ein Ap- 
plikationsteil zeigt die Anwendung 
von Interpreter- und Monitorrouti- 
nen in eigenen Maschinenpro- 
grammen mit jeweils einem ausge- 
führten Beispiel für jede Kategorie. 
Der Apple-Monitor kommt nur un- 
ter „ferner liefen“ vor, dagegen 
aber auf 20 Seiten ein für die mei- 
sten Apple-Benutzer sicherlich 
nutzloser Interpretervergleich Ap- 
ple versus Commodore 64. 


Im Untertitel verweist das Buch auf 
den Ile, geht jedoch dann an keiner 
Stelle auf dessen Besonderheiten 
ein. Alle beschriebenen „Soft- 
switches“ z.B. gelten nur für den 
IIPlus. Der lle hat bedeutend mehr 
davon und unterscheidet auch zwi- 
schen Lese- und Schreibbefehlen 
im Bereich von $C000 an aufwärts. 
Die 80-Zeichenkarte des lle er- 
setzt eine Reihe von Monitorrouti- 
nen, so daß besonders Ein- und 
Ausgabeoperationen mit 80 Z/Z 
anders verlaufen als beschrieben. 
Beide Rechner verfügen aber über 
den gleichen Interpreter. Bleibt ei- 
gentlich nur noch zu sagen, daß 
das Buch sauber und fehlerfrei ge- 
setzt ist, die Matrixdrucker-Listings 
gut lesbar sind und daß alles in 
einem festen Einband steckt, es 





rundum also eine (fast) runde Sa- 
che ist. 
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Programmierung des 
6502 


von Rodnay Zaks 

2. Aufl. 1982, 368 S., kart., DM 
44,- 

ISBN 3-88745-011-6 
SYBEX-Verlag, Dusseldorf 


Dieses Buch ist als Einführung in 
die  Assemblerprogrammierung 
gedacht. Behutsam und verstånd- 
lich fuhrt R. Zaks zuerst in die ver- 
schiedenen Zahlensysteme und 
den internen Aufbau des Prozes- 
sors ein, bevor die einzelnen Be- 
fehle des 6502, gut mit Grafiken 
dokumentiert, auf rund 80 Seiten 
erlåutert werden. Ihr Gebrauch 
wird an vielen Beispielen geübt, 
die alle nach einem klaren Schema 
aufgebaut und z.T. mit einem FluB- 
diagramm versehen sind. Der 
Schwierigkeitsgrad steigert sich 
langsam und paßt sich den wach- 
senden Kenntnissen des Lesers 
an. Binäre Datenbäume werden 
ebenso abgehandelt wie Hashing, 
Bubble-Sort und Mischen. In ei- 
nem letzten Teil werden Compu- 
tersysteme mit 6502 Prozessor 
und Grundzüge von Assemblern 
vorgestellt. 

R. Zaks wendet sich nicht an einen 
speziellen Rechner. Die Program- 
me funktionieren auch auf einem 
Apple. Für den reinen Apple-Pro- 
grammierer ist das Buch aber ge- 
rade deshalb keine erschöpfende 
Einführung, da alle Besonderhei- 
ten der Apple-Architektur nicht be- 
rücksichtigt wurden. Das betrifft 
insbesondere die Ein- und Ausga- 


beroutinen. Für ein vollständiges 
Programm ist es aber erforderlich, 
direkt formatiert auf den Bildschirm 
schreiben sowie Disketten lesen 
und schreiben zu können. Das al- 
les wird nicht behandelt, von den 
vielen Besonderheiten der Apple- 
Grafik ganz zu schweigen. Über 
kurz oder lang wird sich der As- 
sembler-Neuling also noch ein 
weiteres Buch zulegen müssen, 
das direkt für den Apple geschrie- 
ben wurde. Dabei werden ihm die 
Grundkenntnisse aber von Nutzen 
sein, die er in diesem Buch erhal- 
ten hat. 


Programmierung des 





RODNAY ZAKS 


6502 Anwendungen 


von Rodnay Zaks 

2. Aufl. 1983, 288 S., kart, DM 
38,- 

ISBN 3-88745-014-0 
SYBEX-Verlag, Düsseldorf 


Laut Werbung soll dieses Buch 
umfassend die Ein- und Ausgabe 
Ihres 6502 beschreiben. In dieser 
Hinsicht werden Ihre Erwartungen 
nur dann nicht enttäuscht, wenn 
Sie dieses sehr wörtlich nehmen. 
Bildschirmausgabe, Diskettenver- 
waltung oder Grafik kommen in 
diesem Buch nicht vor. Ausführlich 
wird dagegen die Steuerung einer 
Zusatzkarte mit 6522 Prozessor als 
Ein- und Ausgabeeinheit behan- 
delt. Die Bauanleitung dazu befin- 
det sich im Buch. Daneben werden 
6520, 6530 und 6532 vorgestellt. 
Mit dem Erweiterungsbaustein ist 
es möglich, kleine Programme und 
Anwendungen wie Relais, Morse- 
programm, Sirenenton, Impuls- 
messung, Verkehrsampel, Alarm- 
anlage oder eine einfache A/D- 


NEUE DUCHER Er 


Wandlung (Thermometer) zu üben. 
Das Beispiel des automatischen 
Telefonwählers kann in Deutsch- 
land nicht funktionieren, da die 
Deutsche Bundespost ein ganz 
anderes Wählverfahren benutzt. 
Da ist der Hinweis des Überset- 
zers, das beschriebene Programm 
lasse sich „derzeit“ noch nicht 
einsetzen, ganz schön geschmei- 
chelt. 

Das Buch ist didaktisch gut aufge- 
baut und sauber hergestellt, es 
enthält aber auch eine Menge 
„Luft“. So sind alle größeren Li- 
stings zweimal abgedruckt: einmal 
im laufenden Text und ein zweites 
Mal im Anhang. Auf 15 Seiten wer- 
den antiquierte Systeme wie KIM- 
1, SYM-1, AIM65 oder PET vorge- 
stellt, und weitere 19 Seiten nimmt 
die Beschreibung und das Listing 
für einen Minimal-Assembler ein, 
geschrieben in HP2000F TSS Ba- 
sic. 

Wer sich für die speziellen Anwen- 
dungen interessiert oder die Pro- 
grammierung von |/O-Bausteinen 
erlernen möchte, für den lohnt sich 
die Anschaffung dennoch. 





Apple II ROM Listing 


von Matthias Buck 
1984, 116 S., kart., DM 59, - 
Röckrath Microcomputer 


Apple selber hat nie den Quellcode 
zum Applesoft-Interpreter veröf- 
fentlicht, so daß unabhängige Au- 
toren sich an seine Entschlüsse- 
lung gemacht haben. Begonnen 
hat alles 1980 mit J. Crossley, es 
folgten komplette Versionen von 





M.A. Carpick, Bob Sander-Ceder- 
lof, Randy Hyde und Glen Bredon. 
M. Buck legt jetzt die erste deut- 


sche Fassung vor, d.h. mit 
deutschsprachigen Kommentaren. 
Von $D000 bis $F7FF ist alles do- 
kumentiert. Die Anmerkungen sind 
zahlreicher als z.B. bei Bredon, 
bringen jedoch keine Tatsachen 
ans Licht, die nicht schon in den 
englischen Versionen erwähnt wä- 
ren. Aufgeführt sind jeweils die 
Adresse, Assembler-Quellcode 
und Kommentar, der Objectcode 
fehlt dagegen bei Buck. Über- 
sichtstabellen und Kurzeinführun- 
gen in wichtige Interpreterroutinen 
runden den Inhalt ab. 

Das ganze Buch ist auf einem Ma- 
trixdrucker erstellt und im Copy- 
Schnelldruck vervielfältigt, worun- 
ter die Lesbarkeit und Übersicht- 
lichkeit sehr leidet. Es macht ins- 
gesamt einen „billigen“ Eindruck, 
der nicht zu einem Preis von DM 
59,- paßt. Der Inhalt ist eigentlich 
solide genug, um in einer besse- 
ren äußeren Ausstattung präsen- 
tiert zu werden. Wer das ROM- 
Listing noch nicht in Englisch hat, 
für den ist Bucks Buch eine Be- 
reicherung, wenn auch eine teure. 





Fortgeschrittene 6502 
Programmierung 


von Rodnay Zaks 

1984, 288 S., kart., DM 42,- 
ISBN 3-88745-047-7 
SYBEX-Verlag, Düsseldorf 


Trüge dieses Buch den Titel „6502 
Anwendungen Teil 2“, so würden 
meiner Meinung nach Umschlag 
und Inhalt besser zusammenpas- 
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sen. Auf dem Umschlag heißt es 
vielversprechend: „Bald können 
Sie den geeigneten Algorithmus 
auswählen und ihn schrittweise 
definieren, eine leistungsfähige 
Datenstruktur entwickeln und die- 
se bewerten, Echtzeitlösungen 
realisieren ...“. Gearbeitet wird 
dann aber praktisch nur mit einem 
„Hobbyboard“ als Hardware, das 
vom Leser selbst gebaut werden 
muß und dessen Anschluß an das 
kleine Entwicklungssystem SYM-1 
beschrieben ist. (Appleanschluß 
im Anhang). 15 LED’s werden dar- 
auf angesteuert nebst einer Hexa- 
dezimaltastatur (Sedezimal für die 
Puristen) und einem Lautsprecher, 
mit dem Musik (Jingle Bells) ge- 
macht wird. Pseudozufallszahlen 
werden erzeugt, die dann zu „vi- 
suellen Mustern“ aus blinkenden 
LED’s führen. Bei einer Realzeit- 
Simulation umkreisen Lichtsignale 
ein Quadrat aus LED’s. Sie müs- 
sen Licht- und Tonsignale behalten 
und nachvollziehen. Schließlich 
wird als „Künstliche Intelligenz“ 
(S. 207) ein simples TIC-TAC- 
TOE-Spiel vorgestellt, bei dem ge- 
winnt, wer als erster eine waage- 
rechte, senkrechte oder diagonale 
Dreierreihe in einem Quadrat mit 3 
3 Feldern zustande bringt. 
Sicherlich werden einige interes- 
sante Programmiertechniken be- 
handelt, deren Kenntnis allgemein 
nützlich ist, die praktische Umset- 
zung erfolgt jedoch an Trivialitäten. 
Mit einem Home-Computer oder 
einem Apple Ile kann man aber bei 
weitem mehr machen, als hier als 
Fortschritt verkauft wird. Rodnay 
Zaks ist in der Lage, auch schwieri- 
ge Sachverhalte nachvollziehbar 
und einprågsam zu erklåren. Er 
sollte sein Talent nicht an allzu 
simplen Spielchen vergeuden. 


FORTGESCHRITTENE 
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Macintosh Benutzerhand- 
buch 


von Carol Kaehler 

1983, 174 S., zahlr. Abb., Spiral- 
bindung 

Ins Deutsche Ubersetzt von Apple 
Computer, Munchen 

(Wird beim Kauf des Macintosh 
mitgeliefert) 


Dieses Handbuch erlåutert in 4 Ka- 
piteln die Benutzung des Macin- 
tosh: 

1. Macintosh kennenlernen 

2. Mehr über den Macintosh er- 
fahren 

3. Mit dem Finder arbeiten 

4. Nachschlageteil 

Die Typografie und die farbigen 
Abbildungen sind — wie bei allen 
Apple-Handbüchern — ganz aus- 
gezeichnet, während der Text 
selbst teilweise völlig unverständ- 
lich ist, weil nunmehr die „Ikonen“ 
(= Verbildlichungen abstrakter Be- 
griffe) durch Hypostasen (= Ver- 
dinglichungen abstrakter Begriffe) 
ersetzt werden, was zu grotesken 
semantischen Konstruktionen 
führt, wie man sie sonst nur vom 
magischen Denken der Urmen- 
schen her kennt. Einige Beispiele 
mit Seitenangaben: 

S. 21: „Wählen Sie eine Informa- 
tion aus, dann suchen Sie eine 
Handlung für sie aus“: Können In- 
formationen handeln? Vgl. hierzu 
S. 60: „Setzen Sie den Zeiger dort- 
hin, wo die Handlung stattfinden 
soll“ = Zeigen Sie auf den Hand- 
lungsort (?). 

S. 36: „Die Abbilder wurden da- 
durch ausgewählt, indem Sie in 
diese geklickt haben“: Klein-Mecki 
in der Vernissage. Fragt der Aus- 
steller: „Schon ein Bild ausge- 
wählt?“ — „Nee, hab’ noch in keins 
geklickt“ — „Dacht’ ich mir“. 

S. 40: „Verschieben Sie das neue 
Abbild von dem Ordnerabbild, das 
Sie dupliziert haben“: Einst gab es 
einen konkreten, physisch greifba- 
ren (Leitz-)Ordner. Daraus wurde 
eine Mac-Entität namens „Ord- 
ner“. Dann kam das Abbild des 
„Ordners“ und schließlich das Ab- 
bild des Abbildes des „Ordners“, 
das dann „verschoben“ wurde. 
Ontologisch gesprochen, gab es 
einst ein „Seiendes“, dann kam 
die „Seinsheit“ und schließlich die 
„Seinsheitlichkeit“. 

S. 40: „Jedesmal, wenn Text aus- 
gewählt ist, wird dieser Text durch 
den Text, den Sie schreiben, er- 
setzt.”: Wieviele Texte gibt es 
hier? 


S. 41: „Dokumente und Anwen- 
derprogramme können Sie entwe- 
der auf Ihrem Schreibtisch lassen 
oder sie in Ordner oder auf Disket- 
ten unterbringen“: Denksportauf- 
gabe: Nennen Sie bei diesem Satz 
die konkreten Begriffe sowie die 
Verdinglichungen abstrakter Be- 
griffe! 

S. 43: „Sie können auch einen 
Befehl aussuchen und mit ihm auf 
eine Gruppe ausgewählter Abbil- 
der einwirken“: Was ist gemeint? 
S. 65: „Verschieben Sie über den 
Text bis zum Ende des ausgewähl- 
ten Textes“: „Verschieben“ ist ein 
transitives Verb, erfordert also ein 
Akkusativobjekt. Wenn man an 
diesem unglücklich gewählten Be- 
griff festhalten will, so muß es hei- 
Ben: etwas über etwas schieben, 
etwas an etwas entlang schieben, 
etwas über etwas hinweg schieben 
usw. und nicht (S. 160) „Zum Aus- 
wählen einer Information wird der 
Zeiger über sie verschoben“ und 
auch nicht (S. 163) „Wenn durch 
das Menü verschoben wird, wäh- 
rend eine Menüfunktion hervorge- 
hoben ist, wird diese ausgesucht“. 
Klein-Mecki im Restaurant. Fragt 
der Ober: „Schon ein Menü ge- 


wählt?“ — „Nee, hab’ noch durch 
keins verschoben“ — „Dacht’ ich 
mir“. 


S. 95: „Sie können durch gleich- 
zeitiges und dem Punkt den 
Druckvorgang abbrechen“: Wirre 
Mecki-Sprache? Wer klärt mich 
auf? 

Sprechen Sie „Mecki“? Wenn ja, 
Frage: Wie nennt man „die Infor- 
mation, die durch den nächsten 
Befehl beeinflußt wird“ (Lösung 
auf S. 160)? 

Der Philosoph Schopenhauer 
schrieb einmal über Hegel: „Das 
Publikum war genötigt worden ein- 
zusehen, daß das Dunkle nicht im- 
mer sinnlos ist. Sogleich flüchtete 
sich das Sinnlose hinter den dunk- 
len Vortrag. Jedoch die größte 
Frechheit im Auftischen baren Un- 
sinns, im Zusammenschmieren 
sinnleerer, rasender Wortgeflech- 
te, wie man sie bislang nur in Toll- 
häusern vernommen hatte, trat 
endlich in Hegel auf.“ Es hätte 
mich interessiert, was Schopen- 
hauer über den Autor/Übersetzer 
des Macintosh-Handbuches ge- 
schrieben hätte. 

US 








„Apple Assembler“ wendet sich an alle, 
die bereits Anfängerkenntnisse der 
6502-Programmierung haben und 
nunmehr ein Nachschlagewerk für 
ihren Apple Il Plus/lle/lic suchen, in 
dem alle wichtigen ROM-Routinen 
sowie eine Vielzahl sonstiger Hilfspro- 
gramme in einer systematischen Form 
zusammengestellt werden. Insgesamt 
umfaßt dieses Buch über 40 Utilities, 
darunter mehrere völlig neuartige Pro- 
gramme wie Double-Lores, Double- 
Hires, Screen-Format u.a. 


Der erste Teil enthält ein Repetitorium 
der wichtigsten Befehle, Adressie- 
rungsarten und sonstigen Besonderhei- 
ten des 6502 sowie Angaben zu den 
apple-spezifischen Zahlenformaten 
(Integer- und Fließkommazahlen). 

Im zweiten Teil werden neben einer 
Kurzwiederholung der Monitor-Befehle 
alle Routinen und Adressen des Moni- 
tors zusammengestellt, die für Assem- 
blerprogrammierer von Nutzen sein 
können. Darüber hinaus findet der 
Leser Unterroutinen für Vorwärts- und 
Rückwärts-Moven, hexadezimale Addi- 
tion /Subtraktion /Multiplikation /Divi- 
sion, Binar-, Hex-und ASCII- 
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Tips 
und Tricks 


Mit ausführlichen G 
Programmbeispielen 





Ulrich Stiehl 





Umwandlung, Dumpen /Disassemblie- 
ren, Aufwarts-Scrollen, Reset u. a. 

Der dritte Teil befaBt sich mit der Spei- 
cherverwaltung der Language-Card 
und der Ile-64K-Karte und enthält Test- 
und Move-Programme zum Verschie- 
ben von Daten in die und aus der 
Language Card sowie der 64K-Karte, 
wobei besonders ausführlich auf die 
Softswitches eingegangen wird. 


Der vierte Teil ist dem Applesoft-ROM 
gewidmet und beschreibt die interne 
Struktur von Applesoft-Programmen, 
die Methoden der Parameterübergabe 
mittels CALL, USR, &, PEEK und POKE 
und listet dann eine große Anzahl nütz- 
licher Interpreter-Adressen. Bei den 
Utility-Programm liegt das Schwerge- 


Apple Assembler 
- Tips und Tricks - 


von U. Stiehl 


232 S., 40 Programm-Listings, 
3 Abb., kart., DM 34,— 
ISBN 3-7785-1047-9 


Begleitdiskette zum Buch DM 28,— 
ISBN 3-7785-1048-7 


wicht auf Fließkommamathematik ein- é 
schließlich Print Using. POS 
ENS 
Der letzte Teil behandelt den Text- und se SO 
Grafikspeicher. Neben einem profes- ® N 
DAL 
sionellen Maskengeneratorprogramm ø > Rox 


findet der Leser hier auch erstmals 
Routinen zur Double-Lores- und 
Double-Hires-Grafik des Apple lle. 











Doppel-Parallelinterface mit RAM 


oder EPROM 





Die Firma Tombstone-Micro stellt 
zwei Versionen dieser Doppel-Pa- 
rallelschnittstelle her. Es handelt 
sich dabei um eine Steckkarte für 
Applecomputer, die ganz nach den 
Anwenderbedürfnissen aufgebaut 
werden kann. 

Die erste Version des Interface 
trägt den Namen ADD 2 und ent- 
hält einen VIA 6522 (Versatile In- 
terface-Adapter) mit 2 mal 8-Bit- 
Input/Output plus 2 Handshakelei- 
tungen. Daneben existieren ein 8- 
Bit-Schieberegister zur seriellen 
Datenübertragung und 2 Interrupt- 
Timer, die auch als Zähler verwen- 
det werden können. 

Das Interface ADD 4, die zweite 
Version, ist mit einem PIA 6520 
(periphere Interface-Adapter) be- 
stückt. Dieser enthält nur die 2 mal 
8-Bit-Input/Output plus 2 Hands- 
hakeleitungen. 

Beide Karten können mit einem 
2716 EPROM oder 6116 RAM be- 
stückt werden. Der Speicherbe- 
reich ist dann folgender: 


$0000 — $03FF Expansion 
Memory $C800 — $CBFF 

$0400 — $06FF nicht adressierbar 
$0700 — $07FF Slotbereich 
$Cs00 — $CsFF 

(In der provisorischen Betriebsan- 
leitung waren die obigen Angaben 
falsch, was inzwischen korrigiert 
wurde.) 


Es ist ebenfalls Platz für einen Ak- 
ku, der das RAM für mindestens 
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eine Woche mit Strom versorgt. 
Leider kann die Karte dann nicht 
aus dem Apple genommen wer- 
den, denn es besteht die Möglich- 


keit, daß die Daten 
werden. 

An beiden Schnittstellen können 
entweder Drucker, Tastaturen, 
EPROM Burner oder ähnliche Ge- 
räte angeschlossen werden. Es 
sind auch 4 Dip-Schalter vorhan- 
den, mit denen das Treiberpro- 
gramm gegen Schreibzugriffe ge- 
schützt werden kann. Die Strom- 
versorgung des Akku kann auch 
mit einem dieser Schalter unter- 
brochen werden. 

Die ADD 2 wird mit einer DOS 3.3 
Diskette geliefert. Auf ihr sind 
Testprogramme in Applesoft und 
Assembler vorhanden. Diese Pro- 
gramme fehlen bei der ADD 4, je- 
doch gibt es auf der Platine ein 
Wrap-Feld mit 229 Bohrungen für 
eigene Schaltungen. 

Zur Programmierung des VIA wird 
im Begleitmaterial, das nach unse- 
rer Meinung zu kurz gefaßt ist, auf 
das Buch „Mostech 65xx Prozes- 
sorreihe“ hingewiesen. Hier soll 
nur eine grobe Übersicht über den 
PIA gegeben werden. 

Der PIA 6520 (6821) enthält zwei 
8-Bit-Ports. Port A dient gewöhn- 
lich als Eingangsport und Port B 
zur Ausgabe. Jeder Port enthält: 

— Ein Daten- oder Peripherieregi- 
ster, das entweder Eingangs- oder 
Ausgangsdaten aufbewahrt. 


zerstört 


— Ein Datenrichtungsregister. Die 
Bits in diesem Register bestim- 
men, ob die entsprechenden Da- 
tenregisterbits (und Anschlüsse) 
Eingänge (0) oder Ausgänge (1) 
sind. 

— Ein Steuerregister, welches die 
Statussignale aufbewahrt, die für 
den Quittierungsbetrieb erforder- 
lich sind, sowie andere Bits, die die 
Logikverbindungen innerhalb des 
PIA auswählen. 

— Zwei Steuerleitungen, die durch 
die Steuerregister konfiguriert wer- 
den. Diese Leitungen können für 
die Quittierungssignale verwendet 
werden. 

Die Bedeutung der Bits im Daten- 
richtungsregister und den Steuer- 
registern bezieht sich auf die ent- 
sprechende Hardware und ist völ- 
lig willkürlich, soweit es den Pro- 
grammierer für die Assemblerspra- 
che betrifft. 

Jeder PIA belegt vier Speicher- 
adressen: 
Basis = 
nummer 


C080 + n0, n = Slot- 


Basis + 0 ORA/DDRA Portregister 
A 

Basis + 1 CRA Controllregister A 
Basis + 2 ORB/DDRB Portregister 
B 

Basis + 3 CRB Controllregister B 
Die RS (Register Select = Regi- 
sterauswahl)-Leitungen wählen ei- 
nes der vier Register aus. Da es in 
jedem PIA sechs Register gibt 
(zwei periphere, zwei Datenrich- 
tungsregister und zwei Steuerregi- 
ster), ist ein weiteres Bit für die 
Adressierung erforderlich. Bit 2 je- 
des Steuerregisters bestimmt, ob 
sich die andere Adresse auf dieser 
Seite auf das Datenrichtungsregi- 
ster (0) oder das Peripherieregister 
(1) bezieht. Die Preise für das voll 
bestückte Modell mit Akku sind 
(Die Abbildung zeigt die Leerpla- 
tinen): 

ADD 2 mit Diskette und Beschrei- 
bung DM 180,- 

ADD 4 mit Beschreibung DM 150,- 
Bezugsquelle: Firma Tombstone- 
Micro, Gardeschützenweg 72, 
1000 Berlin 45, Tel. 030/8331303 





Modula-2 fur den Macintosh 


Modula-2, das neueste Kind des 
Pascal-Erfinders Nikolaus Wirth, ist 
nun auch fur den Macintosh ver- 
fugbar. Modula-2 ist eine konse- 
quente Weiterentwicklung von 
Pascal und bietet neben den be- 
kannten Pascalfunktionen folgende 
Neuerungen: 

— Ein Modulkonzept, das es er- 
möglicht, auf bequeme Weise ein 
Programm in kleinere Einzelteile 
zu zerlegen, wobei zwischen der 
Schnittstellenbeschreibung und 
dem eigentlichen Programmteil 
unterschieden wird. Zusätzlich 
werden über Modulgrenzen Typ- 
prüfungen durchgeführt. 

— Eine systematische Syntax, die 
das Erlernen der Sprache verein- 
facht. 

— Möglichkeiten für die systemna- 
he Programmierung (Adreßrech- 


nung, Prozedurvariablen usw.). 

— Dynamische Felder als Proze- 
durparameter (z.B. für Strings un- 
terschiedlicher Länge). 

Modula-2 auf dem Macintosh ent- 
hält den kompletten Sprachum- 
fang. Darüber hinaus bietet es den 
Zugriff auf sämtliche Macintosh- 
Routinen wie Bildschirmmanipula- 
tion, Maus-Kontrolle, Grafikrouti- 
nen, Speicherplatzverwaltung, 
Ausgabe von Tönen, Dateizugriffe 
USW. 

Der Übersetzer wird zusammen 
mit einem vollständigen Entwick- 
lungssystem und einem engli- 
schen Manual für DM 598,50 inkl. 
MwSt angeboten. 

Bezugsquelle: pl Gesellschaft für 
Informatik mbH, Gotthardstr. 99, 
8000 München 21, Tel. 089/ 
580609 





64K-Karte fur lle 


Uber die Firmen Wagner Daten- 
technik in Uhldingen und ProSoft 
in Koblenz sind preiswerte erwei- 
terte 80-Zeichenkarten für den 
Apple lle erhältlich, die funktions- 
maBig mit der Originalkarte von 
Apple identisch sind. Ubrigens 
sind auch die deutschen Anleitun- 


gen der Firmen Wagner und Pro- 
Soft identisch, d.h. gleicher, Text- 
wortlaut im Innenteil bei verschie- 
denem Umschlag. 


Bezugsquelle: Wagner Datentech- 
nik, Im Öschle 21, 7772 Uhldin- 
gen-Mühlhofen 1 





Staub und Schmutz auf Computer 
und Tastatur? 


Computer und Peripheriegeräte 
stauben schnell zu. Gerade wäh- 
rend der Nacht und des Wochen- 
endes, wenn Ruhe im Büro 
herrscht, setzt der tagsüber aufge- 
wirbelte Staub sich auf die wertvol- 
len Bürogeräte nieder. Dabei zie- 
hen die Kunststoffgehäuse und 
insbesondere die Bildschirme 
nach dem Abschalten den Staub 


wie Magnete an. Schutzhauben 
verhindern den Staubansatz. Die 
Staubschutzhauben sind aus kräf- 
tigem und reißfestem Material ge- 
fertigt. Es liegen Schutzhauben vor 
für den Apple Il/II+, Apple lic, 
Apple Ill und den Macintosh. 
Bezugsquelle: Schonenberg 
Schutzhauben, Drosselweg 20, 
4782 Erwitte, Tel. 02943/7613 





TempoHexe „SpeeDemon“ 
65C02C-Prozessorkarte 


Die TempoHexe (, SpeeDemon'") 
macht den Apple fast so schnell 
wie die populären 16-Bit-Rechner. 
— Es ist absolut keine Software- 
Anderungen notwendig. 

— Sie kann im Apple II,II+ und lle 
verwendet werden, wobei die spe- 
ziellen Features vom lle unterstutzt 
werden sollen. 

— Funktionsprinzip: Neuer Mikro- 
prozessor 65C02C mit 3.6 MHz 


tritt an die Stelle des 1.02 MHz 
Originalprozessors 6502. 

Der „SpeeDemon“ ist eine Kon- 
kurrenzkarte zur bislang teureren 
Accelerator lle. Ob sie dasselbe 
leistet, wird ein Testbericht in einer 
der nächsten „Peeker“-Ausgaben 
zeigen. 

Bezugsquelle: Softline Rut Alver- 
des, SchwarzwaldstraBe 8 A, 7802 
Oberkirch, Tel. 07802/3707 





Lohn- und Gehaltsabrechnung 


Dieses Programmpaket bietet eine 
moderne, ausgefeilte Methode, die 
Lohn- und Gehaltsabrechnung im 
Betrieb im Dialogverkehr mit dem 
Rechner ohne besondere Vor- 
kenntnisse sowohl des Rechners 
als auch der kleinen Details der 
Gesetzgebung durchzuführen. 

Dabei kann die monatliche Abrech- 
nung getrennt nach Arbeitern und 
Angestellten erstellt werden, wie 
dies in manchen Branchen üblich 
ist. Das Programm ist ausgelegt für 
bis zu 70 Mitarbeiter bei Einsatz 
von zwei 5-Zoll-Laufwerken oder 


bis zu 200 Mitarbeiter bei Einsatz 
von zwei 8-Zoll-Laufwerken. 

Im einzelnen werden folgende Da- 
ten erfaßt, die für die Brutto- und/ 
oder Nettolohnabrechnung sowie 
für die Ausdrucke und Berichte er- 
forderlich sind: Firmenstammda- 
ten, Personalstammdaten, Daten 
von bis zu 5 Hausbanken und bis 
zu 50 Personalbanken, Daten des 
Finanzamtes. 

Bezugsquelle: Orgasoft GmbH, 
Werner-von-Siemens-StraBe 3, 
7730 VS-Villingen, Tel. 07721/ 
72223 





Lotus — Jazz 


„Jazz“ ist ein multifunktionales 
Software-Paket mit fünf Anwen- 
dungsbereichen: Textverarbei- 
tung, Erstellen von Arbeitsblättern, 
Datenbankverwaltung, Datenaus- 
tausch und Erstellen von Grafiken. 
Die fünf Funktionen von „Jazz“ 
sind miteinander integrierbar, so 
daß der Anwender Dokumente wie 
Analysen, Budgets, Memos, Emp- 
fehlungen und Berichte leicht erar- 
beiten kann. 

Dem Paket beigefügt sind zwei 
Handbücher mit detaillierten Funk- 


tions- und Bedienungsanleitun- 
gen, „Jazz“ wird in englischer Ver- 
sion ab März 1985 und in komplett 
deutscher Version ab Mitte 1985 
zum Preis von DM 1.895,— ohne 
MwSt erhältlich sein. 

„Jazz“ läuft auf dem Macintosh 
512K mit einem externen Dis- 
ketten-Laufwerk. 


Bezugsquelle: HHCC GmbH, 
Mainzer Landstraße 46, 6000 
Frankfurt am Main 1, Tel. 069/ 
720711 





NEUE PROdUKTE 4 


Branchenprogramm Reisebüro 


Ziel dieses Programmpakets ist die 
Abwicklung der innerhalb eines 
Reisebüros anfallenden Arbeiten 
wie z. B. Kunden- und AdreBver- 
waltung, Fakturierung, Werbe- 
schreiben-Erstellung, Preislisten- 
ausdruck und Anderung, Auswer- 
tungen der Kunden- und Reise- 
daten. 

Das in Modularbauweise aufge- 
baute Programmpaket führt den 
Anwender im Bildschirmdialogver- 
fahren durch alle notwendigen Ar- 
beitsschritte. Bei der Datenerfas- 
sung schlägt das System definierte 
Eingaben vor, die zu bestätigen 
sind. Mit diesem Verfahren können 
Angebote, Anmeldebestätigungen 
und Rechnungen geschrieben 
werden. Darüber hinaus können 
mit der Kundenadresse spezifi- 
sche Daten abgespeichert werden. 


Im angegliederten Textverarbei- 
tungsprogramm werden in Verbin- 
dung mit der Adreßverwaltung Rei- 
seankündigungsbriefe, Werbe- 
schreiben, Tagespost und Preisli- 
sten geschrieben. Das Programm- 
paket umfaßt auch ein Scheck- 
schreibungsprogramm, mit dem 
die eingehenden Rechnungen 
schnell und problemlos beglichen 
werden können. Neben diesen Ta- 
gesroutinen können auch disposi- 
tive und statistische Auswertungen 
über Listenausdrucke vorgenom- 
men werden. Diese Transaktionen, 
z. B. Kundenadreßlisten, lassen 
sich durch ein Kennwort vor unbe- 
fugtem Zugriff schützen. 
Bezugsquelle: Orgasoft GmbH, 
Werner-von-Siemens-Straße 3, 
7730 VS-Villingen, Tel. 07721/ 
72223 





UCSD p-System fir den Macintosh 


Das hannoversche Systemhaus 
FOCUS Computer bietet die Ver- 
sion IV.13 des UCSD p-Systems in 
Deutschland ab sofort für den Mac- 
intosh an. Damit ist zum ersten Mal 
ein vollständiges Software-Ent- 
wicklungssystem verfügbar, das 
auf dem Macintosh lauffähig ist. 
Mit dem p-System sind Compiler 
für die  Programmiersprachen 
UCSD Pascal und FORTRAN-77 
sowie ein 68000-Assembler liefer- 
bar. Neben p-Code kann mit einem 
Native Code Generator auch Ma- 
schinencode erzeugt werden. Das 
p-System bietet vollen Zugriff auf 
die Macintosh ROM-Routinen, so 
daß Grafik, verschiedene Schriftty- 
pen und die Maus leicht von den 
Programmiersprachen aus ange- 
sprochen werden können. 
Außerdem gibt es für das p-Sy- 
stem viele weitere Zusatzprodukte 
sowie insgesamt etwa 4500 Seiten 
an Handbüchern. 


Das p-System ist ein universelles, 
sehr komfortables Betriebssystem. 
Derzeit liegt sein Marktanteil mit 
weltweit 12% an dritter Stelle hin- 
ter MS-DOS und CP/M. Da das p- 
System prozessor- und hardware- 
unabhängig ist, ist es auf allen be- 
kannten Mikrocomputern lauffähig. 
Damit kann jetzt eine große Aus- 
wahl vorhandener Software von 
Rechnern wie Apple ll oder IBM 
PC auf den Macintosh übertragen 
werden. Das p-System bietet eine 
dynamische Speicherverwaltung 
und wird daher eingesetzt, um 
sehr große Programme auf kleinen 
Rechnern zu ermöglichen. Der mit 
128K relativ bescheidene Macin- 
tosh-Arbeitsspeicher bildet so kein 
Hindernis mehr. 


Bezugsquelle: FOCUS Computer 
GmbH, Friesenstraße 14, 3000 
Hannover 1, Tel. 0511/345461 





STATEX für Bildschirme 


Bildschirme und Kunststoffe laden 
sich statisch auf und ziehen Staub 
und Schmutz an — sie bedürfen 
daher besonderer Pflege. STATEX 
ist ein speziell entwickeltes Tuch 
für Computerbildschirme. Es rei- 
nigt nicht nur wirkungsvoll Bild- 
schirme, Gehäuse, Tastaturen 


usw., sondern schützt auch zuver- 
lässig — bei regelmäßiger Anwen- 
dung — vor Wiederaufladung durch 
einen antistatischen Wirkstoff. 


Bezugsquelle: PROSANA GmbH, 


Zeisselstr. 11 A, 6000 Frankfurt am 
Main 1, Tel. 069/590571 
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für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehl Programmbeispielen 





Apple ProDOS für Auf- Assemblerprogramme unter Pro- Aus dem Inhalt: 

steiger DOS nicht mehr lauffähig und be- Ein erster Überblick - ProDOS und 

ne dürfen einer intensiven Überarbei- DOS 3.3 — Interne Speicherorgani- 
an 


von Ulrich Stiehl 

1984, 202 S., kart., DM 28,- 
ISBN 3-7785-1027-4 
Huthig Verlag, Heidelberg 


ProDOS ist das neue „professio- 
nelle DOS“ (Professional Disk 
Operating System) für den Apple 
Ile sowie den mit einer Language 
Card ausgestatteten Apple Il Plus. 
Reine Applesoft-Programmierer, 


fügt, sind theoretische Kenntnisse + 
die bereits unter DOS 3.3 pro- von ProDOS unabdingbar, wenn es 
grammiert haben, werden sich man die Features von ProDOS voll Ør Lye 
schnell an ProDOS gewöhnen, da ausschöpfen will. 9 


die diesbezúglichen Unterschiede 
zwischen DOS 3.3 und ProDOS 
weniger gravierend sind. 

Sinngemäß liegt das Schwerge- 
wicht in dem ersten Band von 
„ProDOS für Aufsteiger“ auf der 
Assembler-Programmierung, da 
Assembler-Programmierer unter 
ProDOS völlig umdenken müssen. 
Insbesondere sind alle früheren 


tung. Band 1 befaßt sich überwie- 
gend mit den theoretischen 
Grundlagen von ProDOS, der in- 
ternen und externen Speicheror- 
ganisation und enthält grundlegen- 
de Beispielprogramme für Assem- 
bler-Programmierer sowie gene- 
relle Untersuchungen zum BASIC- 
‚SYSTEM. Da ProDOS über erheb- 
lich vielfältigere und leistungsfähi- 
gere, zugleich jedoch erheblich 
kompliziertere Dateistrukturen ver- 


sation — Externe Speicherorgani- 
sation — MLI (Machine Language 
Interface) — ProDOS fir Applesoft- 
Programmierer 








Computerunterstütztes Lernen 


Die INTUS-Lernprogramme wer- 
den hauptsächlich schulbegleitend 
für die Nachhilfe und Übung einge- 
setzt. Sie haben sich vielfach be- 
währt und sind bei Lehrern und 
Schülern beliebt. 

Lernen mit computerunterstützten 
Lernprogrammen ist für viele 
Schüler auf die Dauer eine neue, 
ergänzende Lernform. Gute Lern- 
programme sind dialogfähige, ge- 
duldige „Privatlehrer“. Sie passen 
sich dem Verständnis des Schü- 
lers laufend an, so daß das Lernen 
nie langweilig wird. 

Alle INTUS-Lernprogramme sind 
selbststartend und menügesteuert. 


Es sind keine Computerkenntnisse 
notwendig. Es liegen Programme 
für folgende Gebiete vor: 

— Rechnen, Mathematik 

— Physik 

— Chemie 

— Biologie 

— Deutsche Sprache 

— Fremdsprachen 

— Geographie 

— Vorschule 

— Informatik 

— Kaufmännische Fächer 
-u.a.m. 

Bezugsquelle: INTUS Software, 
Kaiserstraße 21, 7890 Waldshut- 
Tiengen, Tel. 0 77 51 / 79 20 


Mailmerger fur AppleWorks 


AppleWorks umfaBt bekanntlich 
Textbearbeitung, Datenbank und 
Tabellenkalkulation auf einer Dis- 
kette. Teile aus diesen drei An- 
wenderprogrammen können mit- 
einander verknüpft werden. Es 
können jedoch keine Daten aus ei- 
nem der Anwenderprogramme in 
einem anderen verwendet werden. 
So können beispielsweise Adres- 
sen aus der Datenbank nicht mit 
Briefen aus der Textverarbeitung 
gemischt werden, um Mitteilungen 
zu individualisieren. 

Dafür gibt es den „Mailmerger für 
AppleWorks“. Es ist ein leicht zu 


verwendendes Programm, das den 
Einsatz von AppleWorks erheblich 
erweitert. Die Handhabung erfolgt 
wie bei Appleworks. Zusätzlich 
können Global- oder Einzelinfor- 
mationen vor dem Ausdrucken 
eingegeben sowie Zahlenkombi- 
nationen zusammengezählt wer- 
den. Mailmerger wird mit einem 
ausführlichen Handbuch geliefert, 
das allerdings kaum benötigt wird. 
Der Preis ist DM 257,-. 


Bezugsquelle: INTUS Software, 
KaiserstraBe 21, 7890 Waldshut- 
Tiengen, Tel. 0 77 51/79 20 





Verschiedenes 


Apple User Club Austria 


Der Club umfaBt rund 300 Mitglie- 
der in Osterreich. Geboten wird ein 
eigenes Mitteilungsblatt, gemein- 
same Einkaufsaktionen, ein Mit- 
gliederverzeichnis, ein Disketten- 
abonnement, eine telefonische 
Sprechstunde, Clubtreffen an 
mehreren Orten in Österreich und 
vieles anderes. Aktuelle Mitteilun- 
gen werden über die Wiener Tele- 
fonnummer 0043 - 222 - 
478216 verlautbart. Interessen- 
ten mögen sich mit dem Club, 
Postfach 51, A-1181 Wien, in Ver- 
bindung setzen. 


Apple-Diebe am Werk 


In der Nacht zum 30. 10. 1984 
wurden im Goethe-Gymnasium in 
Bensheim eine Reihe von Apple- 
Computern entwendet, die von der 
Fa. Schöpp aus Bensheim stamm- 
ten, welche dann in der Nacht vom 
12. 11. 1984 ebenfalls heimge- 
sucht wurde. Glücklicherweise 
konnten jedoch die Täter, die bei 
der Fa. Schöpp eingebrochen hat- 
ten, bereits am 6. 12. 1984 gefaßt 
werden, während die anderen 
noch auf freiem Fuß sind. 











Einzelbezug DM 28,— 
Fortsetzungsbezug DM 20,— 
(Mindestbezug 6 Disketten) 







Peeker gelistet!) 


Sammeldiskette Heft 1 + 2, 
1984 
DOS-Format 


T.DISASSEMBLER.65C02 
DISASSEMBLER.65C02 
T.ACCEL.WAIT 
ACCEL.WAIT 
T.ACCEL.BOOT 
ACCEL.BOOT 
ACCEL.LC.KOPIERER 
T.ACCEL.LC.KOPIE 
ACCEL.LC.KOPIE 
T.ACCEL.ROM.KOPIE1 
ACCEL.ROM.KOPIE1 
T.ACCEL.ROM.KOPIE2 
ACCEL.ROM.KOPIE2 


TURTLE.GRAFIK.MIT.REMS 
TURTLE.GRAFIK.OHNE.- 
REMS 


DOUBLE.LORES.SOFT- 
SWITCH.DEMO 
DOUBLE.LORES.APPLE- 
SOFT.DEMO 
AMPER.DOUBLE.LORES.- 
DEMO 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 
DOUBLE.LORES 


HIRES 
T.PRINTHIRES 
PRINTHIRES 







































DHGR.APSOFT.DEMO 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES 
T.AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 








INSTRING.TEST 
INSTRING.OBJ 
T.INSTRING.OBJ 
INSTRING.LISA.SOURCE 







LOESCHEN.EINES.ARRAYS 
ULTRATERM.ENGLISCH* 
ULTRATERM.DEUTSCH* 







PRIMZAHLEN.OVERMEYER* 
PRIM.OBJO* 

PRIM.OBJ1* 

PRIM.TEST* 
PRIM.TOOLKIT.SOURCE* 























NEUE PROdUKTE 


Peeker-Sammeldisketten 


(* = nur auf Diskette, nicht im . 


Hüthig Software Service 
Postfach 10 28 69 - 6900 Heidelberg 1 


Sammeldiskette Heft 1-2, 
1985 
DOS-Format 


T.RAMDISKLC 
RAMDISKLC 
T.IBS.RAMDISKDRIVER 
IBS.RAMDISKDRIVER 
T.AP20.RAMDISKTEST 
AP20.RAMDISKTEST 


T.QUICKCOPY 
QUICKCOPY 
QUICKCOPY.PUFFER 
PRODOS.COPYA 
T.PRODOS.COPYOBJ* 
PRODOS.COPYOBJ 
PRODOS.PATCH 


T.APPLESOFT.FRE 
APPLESOFT.FRE 
T.LC.FRE 

LC.FRE 

FRE.TEST 
T.RAM.FRE* 
RAM.FRE 


T.SCHIRMDISK 
SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 

T.VIDEXT 
VIDEXT.LISA.SOURCE 
VIDEXT 


GETPAS 
GETDOS.PASCAL.SOURCE 
COPYDUPDIR.PASCAL.- 
SOURCE 


Sammeldiskette, Heft 1-2, 
1985 
CP/M-Format 


STEUER.84 
PASS.BAS 
MENUE.BAS 
HELP.BAS* 
A.BAS 
B.BAS 
C.BAS 
D.BAS 
E.BAS 
F.BAS 
G.BAS 
H.BAS 
I.BAS 
J.BAS 
K.BAS 
L.BAS 
M.BAS 
N.BAS 








DEEKER 


Vorläufige Themenübersicht 





Heft 3/85 erscheint am 25.2.85 


Hardware 


Der Apple als persönliches 
Ingenieurwerkzeug 


Controller- und Laufwerk- 
Funktionsprüfung 


Masterclock von Hoco 
im Test 


Balfer-Interface 


ProDOS 


ProDOS für Anfänger, Teil 2 


Neuer Format-Befehl für 
ProDOS 


Pascal 


Pascal 1.2: Evolution statt 
Revolution 


Apples Maus lernt jetzt auch 
Pascal 


CP/M 


Konvertierung von CP/M - in 


DOS-Textfiles 
Apple lic lernt CP/M 


Applesoft 


Testgenerator fur 
Legastheniker 


Hohere Prazision bei den vier 
Grundrechenarten 


Die CHRGET-Manipulation 


100 


Assembler 


Macros fur die neuen 
65C02-Befehle 


Flag-Monitor: 
Geschwindigkeitsoptimierung 
bei Assemblerprogrammen 


Grafik 


Double-Lores-Utilities 





Macintosh 


Microsoft Basic leicht 
geMACht, Teil 3 





Wir vertreten unter anderem 
folgende Firmen in Deutschland: 






PASSPORT PRODUCTS 


DESIGNS nc 


G 


Då Mountain Computer Inc. 


== Titan 


= [Ita] INC. 


(©) THUNDERWARE, INC. 


M 
- 


INTRA COMPUTER INC. 


NG EN = California Computer Systems 
NU) MI 





NTRAL POINT 
Software, Inc. 


COMPUTER STATION 


Händleranfragen erwünscht. 


pandaşěft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


CORVUS OMNIDRIVE™ 


5, 11, 16 oder 45 MB 
für Apple Macintosh. 
Single user Version* incl. Omninet-Transporter. 


Für Entfernungen bis zu 1 km, 
problemlos über RS 422 Zweidrahtleitung. 


CORVUS Omnidrive"" 
Winchester Disk 


Omnidrive 
Massenspeicher und 
Netzwerkanschluß in 
einem Gerät. 





*ab 3. Quartal ’85 aufrüstbar für Multiuser-Betrieb zum 
Vernetzen von bis zu 63 Mac's. 


Omninet Constellation Il Multiuser Version fur 
gemischten Betrieb von Apple Il +, lle, Corvus Concept, 


DEC Rainbow, Tl Professional, Zenith Z 100 
IBM-PC sofort lieferbar 


pandas fto.. s 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 








Accelerator Ile macht 
Ihren Apple® Il, Il Plus oder lle 
dreieinhalbmal 


schneller. 


Jetzt laufen VisiCalc* Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR lle Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR lle besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


Panday®ftı..... :- 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


wir haben die und die 
Software... Hardware... 















MICROLA p 





ALLES FÜR DEN APPLE Il, Is, IE 


panday®ft Dr.-Ing. Eden 


UHLANDSTR. 195 - D- 1000 BERLIN 12 5 vo? 
TEL.:(030) 310 423 - TELEX:185859 


risierter rpk ‚chhöndler MICROSOFT. Distributor 
















B2-Motherboard mit 6502, 65C02C, Z80B, V24, Parallel-Schnittstelle, 80-Zeichenkarte, 


RGB-Ausgang, 192 KB RAM DM 2299,-- 
B3-Motherboard, wie B2, zusätzlich 256 KB Pseudofloppy DM 2899,-- 
Prometric® B2 Tischgerät ab DM 3349,-- 
Prometric® B3 Tischgerät ab DM 3999,-- 
Prometric® Portable B2, Monitor 9” ab DM 4449,-- 
Prometric® Portable B3, Monitor 9” ab DM 4999,-- 


Neu von DRV: C-DOS, das 80-Track DOS fiir B2 und Kompatible, verarbeitet Integer, DOS 3.3 und 





Prodos-Files DM 149,-- 
DEUTSCHES BASIC, ROM-residient, übersetzt Ihre Apple-Soft Files ins Deutsche | 

und umgekehrt DM 149,-- 
CALVADOS, deutsche Textverarbeitung DM 299,-- 


Wir suchen Stützpunkt-Händler mit entsprechendem finanziellen Hintergrund. 
Anfragen bitte nur schriftlich. 


TEAC FD55F DM 674,-— YE-DATA 480 DM 694,—— 
FDC4-Controler - DM 179,— ERPHI-Controler DM 298,-— 
Shugart-Bus-Kabel DM 45,-- IBM-look Gehäuse DM 218,—— 
PREH-Commander AK87 DM 329,—— Monitor 15” DM 528,-— 
MONITOR 12”, 22 MHZ DM 349,-— 32K-PRINTER-BUFFER DM 389,-— 
M100-DRUCKER DM 825,—— MOTHERBOARD 64 KB + Z80 DM 699,—— 
Graphik-Par.-Interface DM 125,—— PSEUDO-FLOPPY 256 KB DM 899,-— 


Alle Preise inklusive 14% MwSt. Weiteres Zubehör auf Anfrage. 


E. Böhmer, DRV, Am Kellersbusch, 6072 Dreieich, 0 61 03 / 8 46 47 


